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bad st a 


Pee asta astaital tal nt ot at at nt at ot at oe 


} 


NAME AN 0 OD NA UE WIN 0 OD NOAU EWN O OO NOUS WN" OOOWVOA UE WR)" OOOO 


AUTHOR: Larry D. Jones, 
MODIFIED BY: 


TAILS UF TRSANRS VAX/VMS UETP SYSTEM SERVICE TEST 


“DEFAU T DISPLACEMENT ,WORD 
-ENABLE SUPPRESSION 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED 


OFTWARE IS cyeaieeee UNDER A LICENSE AND MAY BE USED AND COPIED 
N ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
ION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
0 P 

TRANSFERRED. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eeepokAt ion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


LARA RRARARAAAALAASALALSALALE EASA ERASE SERA RARER RRR R RRR REARS ESLER RSE EE SS 


“FACILITY: SATS SYSTEM SERVICE TESTS 
ABSTRACT: The UETSSMMOO module tests the execution of the following 


VMS system services: 
SCRMPSC 


SUPDSEC 


ENVIRONMENT: User, Supervisor and Executive mode image. 


Needs SETPRV privilege and dynamically acquires other 
privileges, as needed. Privileges used are: 


SYSGBL SHMEM SYSNAM PSWAPM 
PRMGBL PFNMAP CMEXEC 


CREATION DATE: August, 1981 


v03-004 LDJ0001 sory 8 D. Jones 22-Feb-1984 
Extended the GSDNAM en gth Limit to 44 from 15 for the 
the change put in S$CRMP 
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38 i v03-003 KDM000 
¢ ; Added 


62 tee 


"SoSEp=1986 BLiS2i48 UOETPSY. SR 


£5Getssmmoo.mar:1 2%" (fy 


thleen D. Morse 28-Jun-1982 


¢ K 
SSDEF and SVADEF.. 


VAX/VMS 
Declarations 


00741130 


90000100 


asad 
0000002 
00000001 


L 
ETP SYSTEM SERVICE TEST 


OOooceo 


SoOoOOoOoSCoOoCoOoOOCOoOOoOoOoOoOSoOo 


SQOooooooo 


COOoOooooooooooo 


SOOoQooQoQoooooooooo 
Coooooocoo Ss 
Soooooooeo 


"SrSEP=1986 O4:90:48 UOETPSY.SacSuerssmmoo.man:1 9% 3) 


Condition yo {rene definitions 
Process g oeerer definitions 
oo definitions 

pret 1, ef init tong 

vilege bit definition 

Pea e Table at ot Sorcnst tons 
Sestion def nitto 
Shared messag 
System otetus  setes 
Status return 


UETP 
Virtual address fields 


rt: ; -SBTTL Declarations 

eg INCLUDE FILES: 

oe F SYSSLI RARY: LIB.MLB for general definitions 

4 ; SHRLIBS$:UETP.MLB for UETP definitions 
71 ; 

tg i + MACROS: 

7%, ' SCHFDEF : 
f° SPHDDEF ; 
§ SPSLDEF : 
7 SPRIDEF ; 
4 SPRVDEF : 
7 SPTEDEF : 
0 SSECDEF : 
1 SSHRDEF : 
é SSSDEF : 

SSTSDEF : 

4 SUETPDEF : 
; SVADEF : 
i : Equated symbols 
3 , UETPS_TEXT = <<116a16>!SHRS$_TEXT> 

91 ° EF2 : 3 

3 TEXT BUFFER = 256 

9 SUCCESS = 1 

94 ERROR = 2 

 - EFNI = 1 

97 MACROS 

98 ; 

99 


M 
TSSMMOO VAX/VMS_UETP SYSTEM SERVICE TEST 
VO4=000 RO PSECT cytes 


30 30 4D 4D 53 53 54 45 55 8 


o 
oO 
o 
So 
COOOCCCOOCOOCOCOOCOOoOO 


A 
A 
4D 53 53 54 45 55 pti ‘sy ¥ of 
i 
6— 75 67 65 62 8" bie 
! 
6C 75 66 73 73 65 63 63 75 73 90" } 
age 
64 65 6C 69 61 66 99" : C 

43 53 50 4D 52 43 9" 8 
O3A 
O3A 
43 53 4C 42 47 44 90" 5 “ 
041 
041 
43 53 4C 42 47 4D 9" Be) 

04 

04 
43 45 53 44 50 55 9" 5 
Or 
72 65 20 53 4D 52 00000057' 10600 4F 
20 65 6C 69 66 38 6E 09037 fe 6 ee 5D 
¢ 2 $? 
45 53 44 50 55 24 gpoggors* 9} “ of 
$9 gf 74 f 7 5 61 66 9000 $c 
9 65 4 8 69 64 6F 6p 86 

2E 65 6C 69 66 6E 6F 69 74 63 


ae 


Pere ee fe. is 9E 
9 % 


EEE 


137 
138 BAD_PFN: 
1 -ASCID 


/Bad PFN returned by the exec. 


$ ~~ AX/VM v04-0 
"SrSEP 1984 83; 93: 3 UETP ey. SUET SSMMOO.MAR; 1 
1 ert RO PSECT 
! -PSECT RODATA,RD,NOWRT ,NOEXE ,LONG 
1 
1 ‘ TEST_MOD_NAME: 
106 TASCIC /UETSSMMO0/ ; Needed for SATSMS message 
107 
108 TEST_MOD_NAME_D: 
1 TASCIB /UETSSMMOO/ ; Module name 
11 
113 TEST_MOD_BEGIN: 
112 eASCIC = /begun/ ; Begin message 
113 
114 TEST_MOD_SUCC: 
115 eASCIC /successful/ 3; Success message 
11 
119 TEST_MOD_FAIL: 
118 eASCIC /failed/ ; Failure message 
119 
19 CRMPSC: 
121 eASCIC /CRMPSC/ ; System service names 
1 
138 DGBLSC: 
124 eASCIC /DGBLSC/ 
125 
1 § MGBLSC: 
1 eASCIC /MGBLSC/ 
128 
133 UPDSEC: 
130 eASCIC /UPDSEC/ 
131 
133 RMS_ERR_MSG: ; Announces an RMS error 
1 -ASCID /RMS error in file !AD/ 
134 ; Failure messages 
135 UPDSEC_FAILED: 
136 -ASCID /SUPDSEC failed to modify the section file./ 


No PFNMAP testing done./ 


Page 


4 
(2) 


UE TSseno0 YANe Yes UETP SYSTEM SERVICE TEST ae 19-3 o- lope gi: g?: 3 AX/VMS M v04-0 Page (3 


V PSECT -SEP-1984 UETPSY.SR 4UET SSMMO0.MAR; 1 
14 

21 20 r% ¢3 $3 3 eee 4059009" 18} - -ASCID \Test !AC service name !AC step !UL failed.\ 

PLCPRECEEED 

2E 64 65 6C 69 61 66 20 4C 1 20 143 

i? 53 HI 4 % 30 eel gt Q°geg . 128 _ -ASCID \Expected !AS = !XL received !AS = !XL\ 

41 21 20 64 6 g $3 é 3 ; 

4C 58 21 20 3D 2 146 

147 CS3 

me 8p $9 03 3 31 oa aay 148 -ASCID \Expected !AS!UB = !XL received !AS!UB = !XL\ 

ELE CECELED 


DY OOO OWWWONAAOOOUS WWIII "DOOCO™™MITC9 


8 
1 
10D 
10D 
} D 
139 
133 
13A 
13A 
13A 
148 
154 
160 
16C 
16D 149 
72 65 66 66 75 42 00000175' 910600 ' 0 4 13} el ASCID \Buff ffset 'XL\ 
> uffer offset was ! 
58 73 61 $$ 20 7 é 88 ote eo 20 1 ° 
e 8 21 4 
18A 138 
018A 153 CSS: 
77 20 65 64 6F 4D 99000194" 91059000" 4 A 154 -ASCID \Mode was !AS.\ 
2E 53 41 21 20 61 0198 
19F 155 
19F 136 NSSSF 
75 73 $0 $f 6F 4E 000001A7'010E0000' 019F 15 -ASCID \Non-subject system service failure of : !/!_ 'AS\ 
6D 65 74 79 735 20 74 § 65 ss 1AD 
69 61 66 20 65 63 69 76 $3 ; 1B9 
ef ¢1 20 3A $3 $8 F $3 6 ‘ 75 6C 01C5 
3 41 21 20 20 20 20 20 20 SF 21 01D1 
1DC §=—«.: 1158 
10C 159 UM: ; CPU modes 
72 65 73 75 000001E4'010E0000' 1 199 -ASCID \user\ 
1E 196 SM: 
72 65 70 75 73 000001F0'010E0000" Hj 197 -ASCID \super\ 
1F 165 EM: 
74 75 63 65 78 65 000001FB"91 059099" 1F 166 -ASCID \executive\ 
65 6 0 
6 167 
? 198 KM: 
6C 61 6E 72 65 6B 0000020E'010E0000' 9 13) -ASCID \kernal\ 
14 171 EXP: 
73 75 74 61 74 73 0000021C'010E0000' 0214 16 -ASCID \status\ 
; 174 ZEROSTRING: : Illegal length strings 
0000022A'010E0000' ‘ 102 eASCID // 
A 153 TOOLONGSTRING: 
41 41 41 41 41 41 00000232'010E0000' A 178 »ASCID /AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA/ 
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PSECT 823Ep= 1384 4:98:48 Ni DeY. SREDUETS¢MMGO. MAR: 1 . 3) 


vam 


z 


eASCID /TT/ 


=» 
Mm 
a 


; Output message variables 


@cncucDCo~ 


MEW OOONAOUSWN OOD NOU fSWwh-O”O 


-ASCID \register R\ 


7365 « 64 64 61 steels | -ASCID \address\ 


DATA: 
61 74 61 64 00000291'010E0000' »ASCID \data\ 
STATUS: 


73 75 74 61 74 73 0000029D'010E0000' -ASCID \status\ 


=z 
“ 
ee 


65 64 6F 6D 000002AB'010E0000° -ASCID \mode\ 
MSGVEC: ; PUTMSG message vector 
.LONG 3 
[LONG UETPS_TEXT 
[ADDRESS MESSAGEL 


AN_ILLEGAL_ IDENT: ; An illegal IDENT 
.Q0AD <SEC$K_MATLEQ+1> 


0741130 
900000), 
0000122 


DWWOPr rr \ PP OO OOOO NNO AA MITT 
NUR RAAT OOOO & F OC OOOCOMMMmaa sc 


54 54 00000266'010E0000' 
74 73 69 67 65 72 00000270'010E0000' 
$3 20 Fe 65 

BB 


MORTON — a — —) st 


SOOCOOCOCOVOOOOOOOOMD 


00000000 00000003 


oe 


1 
YAR (YRS UETP SYSTEM SERVICE TEST 7 oe 
RO PSECT 
34 5? SBTTL R/W PSECT 
0000 : | SECT RWDATA,RD,WRT,NOEXE,LONG 
1 o 
12 TPID 
00000000 ? Fe LONG 0 
4 15 TTCHAN: 
0000 2 18 «WORD 0 
18 CURRENT_TC: 
00000000 8 é 19 “LONG O 
QOOA 1 MODE 
00000000 44 § -LONG 0 
QOE 4 REGNUM: 
00000000 BY 5 -LONG 0 
Bat $ STATUS_CODE: 
00000000 Bie 8 -LONG 0 
O06 0 ARG_COUNT: 
00000000 319 1 -LONG 0 
GOtA $ asc 
44 BA O1A 4 -LONG TEXT_BUFFER 
00000022" 83 5 -ADDRESS BUF” 
0 5 BUF : 
00000122 -BLKB  TEXT_BUFFER 
1 40 MESSAGEL: 
00000008 1 41 . LON 0 
00000022" 0126 g -ADDRESS BUF 
4 A tk MSGIL 
444 94 4 12A 45 » LONG TEXT_BUFFER 
00000132" : $8 .ADDRESS BUFT 
1 $8 BUF 1 
00000232 1 4 -BLKB TEXT_BUFFER 
af MESSAGEIL: 
0000 0000. 26 -LONG 0O 
000001 . ¢7 ADDRESS BUF1 
A 55 SERV_NAME 
00000000 2$ 
0000027A 38 
$4 
é 
83 


00748009 


REG_SAVE_AREA: 
BLKL 15 


MOD_MSG_CODE: 
“<LONG UETPS_SATSMS 


P=198e 8 


1: 
4: 


4+ 3 AX/VMS Macro Vv04-0 Page 


UETPSY. RE) UETSSMMOO.MAR; 1 


PID for this process 


Ptr to current test case 


Current mode string pointer 
Register number 


Failure status code 


Storage for argument counts 


Buffer desc. 


Message length 


Buffer #1 desc. 


Message length 


Service name pointer 
Register save area 


Test module message code for putmsg 


EEE 


(2) 
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vous RAW PSECT gS EE 8he ba ikeske Loetbey.caeiceyscmeno.man;1 2% (8, 
E 4 TMN_ADDR: 
00000000' ; ge «ADDRESS TEST_MOD_NAME 
85 TMD_ADDR: 
00000018" é -ADDRESS TEST_MOD_BEGIN 
90000000 ; rt START saeet tt P ; Storage for buffer start address 
A og WORK: 
09000000 : fe «LONG 0 ; Scratch long word 
E 76 MSGVEC1 ; PUTMSG t 
00000 58 .LONG 3 Sg eee: 
07411 9 £8 “LONG — YETPS_TEXT 
0000001 9 7 . LONG 
0000000 aa 9 LONG 
900000 3 § EXIT ree 0 ; Exit handler descriptor 
OOO1F BF’ hs Se “ADDRESS EXIT_HANDLER 
0000001 A 5 . LON 
0000012" 4 6 «ADDRESS STATUS_CODE 
6 AE 8 UPD_IOSB: ; IOSB for the SUPDSEC 
00000000 00000000 . 3 -QUAD 0 
02B6 91 CRMPSCG: ; Allocate space for _G parameters 
02B6 5 SCRMPSC 
O2EA 9 
O2EA 94 MGBLSCG: 
O2EA 95 SMGBLSC 
8 OA 96 
OA 97 DGBLSCG: 
Q30A 98 SDGBLSC 
1A 99 
1A 0 UPDSECG: 
ys 1 SUPDSEC 
3 § AN_IDENT: ; A section identifier 
00000000 00000000 25 Be QUAD 0 
46 06 GSDNAM: ; Global section name 
45 53 4D 4D 53 53 GO0SOS4E"O10E009" 56 07 -ASCID /SSMMSEC/ 
08 
33 09 PRIV_MASK: ; Privilege mask 
00000000 00000000 22 19 -QUAD 0 
5D \¢ VBN: ; Storage for Virtual Block Number 
00000000 2 1? -LONG 0 
61 15 OUTADDRESS: ; Address descriptors for sections 
4 944 61 16 «ADDRESS READ_BUF 
0000600' 32 ! “ADDRESS READ_ BUF 
69 8 INADDRESS: 
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R/W PSEC UETPSY.S SUE TSSMM 0.MAR;1 
FO 88 Ne NR 9 -ADDRESS READ_BUF 
600° «ADDRESS READ_BUF 
1 FAO_BUF : ; FAO output string descriptor 
0898 8199 4 4 -WORD TEXT _BUFFER,0O 
000 , 5 -ADDRESS BUFFER 
7 5 BUFFER_PTR ; Fake .ASCID buffer for misc. strings 
0000 8190 79 § WORD TEXT _BUFFER,O : A word for length, a word for desc. 
0000 < 4 4 “ADDRESS BUFFER 
1 BUFFER: ; FAO output and other misc. buffer 
00000481 i ! -BLKB TEXT_BUFFER 
? } : ; The following two user defined symbols must remain contiguous. 
48) § LOGICAL_NAME : 
$4444 84 4 d - LON ; Logical name descriptors 
tae te 9° 04 8 «ADDRESS .+4 
45 4D 41 4E 24 4C 42 47 rit weet meee /GBLSNAME / 
42 0491 341 ~ BYTE = “A/B/ 
4 “8 ; The following two user defined symbols must remain contiguous. 
49 45 EQUIV_NAME: 
00000005 049 $$ of 5 
0000049A" 0496 4 -ADDRESS .+4 
45 4D 41 4E tee rt mene “ee /NAME / 
41 Q49E 350 BYTE = “A/A/ 
49F 26 GSD_LOGNAM 
4C 45 4D 41 4E 000004A7'010E0000" rh8 7 SASCID /NAMEL/ 
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Ad 
wm 


She 0c:9e:%8 LORtP ey. caeioeyscmaoo.man; 1” 


s - 
oREPT <512*3>/4 
LONG A 


WODNOA VL WN OOONOA UNE WO 


SFAB FNM=<UETPSECT.DAT>,=- 
FAC=<GET>,= 


PEOCOAXALMMMMMOPCOCASACOOOCOOCOCOCOF Mm 


Mn OOOO OCCOCOCOOCCOOCOOCOOCOSOOOCOSOOCOO > 


FOOOCOCOCOCOOCOCOCOCOS OOOO SOOOCOOOO OOOO OO OOOO OOOOOOn 


FAB FNM = <UETPSECT.DAT>,=- 
FAC T,B10 


OOO OO 0909 09 09 69 09 09 09 09 09 SI NIN NIN NN NNO PA AAA AAD Om 


AUF WN OC OONOUS WN Oo 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


AAAPAAAAAAAOAD 
m>>r>rrrr> OOoocoeo 


; 3 Page buffer on page boundary 


: End buffer bumper 


; End buffer bumper 


; Section file FAB 


; Section file creation FAB 


; Section file RAB 


TSSMMOO vere yas 
v4 


i. UETSS 


: 


SSOSOSOSOSOSOSOSOSOSOSOSOOSOSOOSOSOSOOSSOSOSOSOSOSOSOSOSOSOSOOSCOOSOSS 


COOCOOCOOSOOOOCOOSOOCOOOOSOSOSOSOSCOOSOOSOOSOOSOSoOO 


OOOCOCOSoSO 


4 


SOOOCOCOSOCOOCCOOOSOSOOSOSSOSSSSSOSSOSCOSOOCOOCOOOSOOCOOOOOOOOOOCOO 


NOUS WN OC OD NA NE WIN  O OD NOUN EWN O ODA UE WAN "OO ONOUS 


PERE R ES BWW WWIII POPOPOPONOPOPUPN 2 SB OOOOOOOO0000 


at at at at a MM UMUUMAMRMUMAMAAMAUAAMUAUAUAUMAAAMHMAnAnndetnedMeeee 
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UETPSY.SRC Ss 


Sart UST SSengS 
~PSECT UETSSMMOO,RD,WRT,EXE,LONG 


. 
FUNCTIONAL DESCRIPTION: 

After persoratne gene initial housekeeping, such a 
printing the module begin messa - and acquiring needed privile es, 
the +? em services ore tested ach their normal and failure 
onditions. Detected failures ore dentified and an error message 

S printed on the terminal. Upon completion of the test a success 

or fail message is printed on the terminal. 
CALLING SEQUENCE: 

$ RUN UETSSMMOO ... (DCL COMMAND) 
INPUT PARAMETERS: 

none 
IMPLICIT INPUTS: 


none 


; OUTPUT PARAMETERS: 


Se Ge Se Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Fe Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Se Ge Ge Se Ge Se Ge Ge Ge Ge Ge Ge Ge Se Ge 
ia 


none 
IMPLICIT OUTPUTS: 


Messages to hg ot are the only output from UETSSMMOO. 
They are of the form 


RUETP=S-SATSMS, TEST MODULE UETSSMMOO BEGUN ... (BE 

RUETP=S-SATSMS, TEST MODULE UETSSMMOO SUCCESSFUL ... 
RUETP-E-SATSMS, TEST MODULE UETSSMMOO FAILED ... (EN 
RUETP-I-TEXT, ... (VARIABLE INFORMATION ABOUT A TEST 


COMPLETION CODES: 


The UETSSMMOO routine terminates with a SEXIT to 
operating system with a status code defined by GETPS. SATSMS. 


SIDE EFFECTS: 
none 


TEST_START UETSSMMOO ; let the test begin 


| 


N MSG) 
a MSG) 


MODULE FAILURE) 


0000" CF 
Ssnmee ge 8s 


DD 
OF 
FB 
00000000 ' GF 1 
1681 50 
FO 
F 
DD 
FB 


1 
1 
0282'CF 021'CF 
a 
1D2C'CF 1 
00000000 
0006'CF 01 DO 
00 dD 004 
1p2c'cF O01 FB 
4 
QOOA' CF pis ce DE 
O25A'CF O0O35'CF ODE 
OC DD 
1D36'CF O01 FB 
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UE TSSMMO 


0006' CF “o 


0090000 09 69 09 09 69 6900 09 C009 INI NI UU 


SOOOCOCOSOCOCOSOOSOSCOCOO SOOO OSS SOOO SOSOOOOOCOOOOCOOOOOOoOoOoOO 


0006 'CF 6 D0 
DD 

1D2C'CF ee, 
oc DD 

1036'CF we 


SSEp=198¢ 04:88:48 


ENTRY VET $SMMO0 0 
CLR ENT _TC 


PUSH 
PUSHAL WOTPID 


CALL 10/6 $WAKE 
CALLS BAS YSSHIBER 
PUSHAQ w*f MoD NAME_D 
CALLS #1 68598 serean 
MOVAL uaTesT mcB SUCC,W*TMD_ADDR 
INSV gSUCCESS, 40a .W*MOD PasG CODE 
PUSHL # 
CALLS #1,W*REG_SAVE 
STPO: 
re 
44 ~SBTTL CRMPSC TESTS 
rt ; 
a3¢ : SCRMPSC tests 
634 : Test simplest case 
456 :- 
289 
458 STEP=0 
459 NEXT_TEST 
STP1: 
MOVL #1 ,W*CURRENT_TC 
PUSHL 
460 CALLS #1,W*REG_SAVE 
461 pocket S$ DESBLK = EXIT_DESC 3 
46 VAL M,MOD 3 
46 HOVAL CRMPSC, SERV_NAME 3 
464 SCRMPSC ; 
465 FAIL_ CHECK $s$ ~Accyso 
PUSHL #SS$_ACCVIO 
CALLS #1 ,W*REG_CHECK 
r+ a 
$38 : Test no inadr on non-permanent global section 
£36 i> 
471 
472 NEXT_TEST 
STP2: 
MOVL oe CURRENT TE 
PUSHL 
473 CALLS #1,W*REG_SAVE 
474 SCRMPSC_S FLAGS = #SECSM_GBL 
475 FAIL_CHECK SS$_ACCV 
PUSHL ~ #SS$_ACCVIO 
CALLS #1,W*REG_CHECK 


AX/VMS Macro ¥O% -0 
UETPSY.S REIUE VETSS 


Page 1 
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Declare an exit handler 

Set the mode 

Set the service name 

No inadr on non global section 


1 10 
CANES HG SYSTEM semvzce Test” UCHEECISRE BUSRRTE HMRC. SRSel RSMo ness "OOP HB] | 


+ Test No read access on inadr 


ooo 
—OwW 
J 
vo 
ow 
PRE EM ONTO 

(74) 

—" 

vw 

w 


NEXT_TEST 
0006' CF MOVL #3,W*CURRENT_TC 
i) B PUSHL # 
1D2C°CF FB ; 483 CALLS #1,W*REG_SAVE 
B 484 SCREATE FAB = FILEFAB,- 
0B 485 ERR = RMS_ERROR ; Create the data file 
C 4 § SCONNECT RAB = FICERAB,- 
CD 4 ERR = RMS ERROR ; Connect to the RAB 
D 488 SWRITE RAB = FILERAB,- 
D 489 ERR = RMS_ERROR ; Write 3 pages of cones word 
E 490 ; unique data to the f 
E 491 SCLOSE FAB = FILEFAB,- 
E 49¢ ERR = RMS ERROR : Close the file 
F 49 SOPEN FAB = SECFAB,- 
FA 49% ERR = RMS_ERROR ; Open the file to get a channel 
0 495 SSETPRT_S INADR = INADDRESS,- ; Set buffer protection 
0 496 PROT = #PRTSC_NA 
07 50 1 49 RO,10$ :; Skip error report if OK 
by DD 1 498 PUSHL RO : Save error code 
1F15'°CF 1 FB $30 10$ CALLS #1,NONSUB_SSE ; Print the failure 
aot SCRMPSC_S INADR = READ_BUF 
20¢ CHAN = SECFAB+FABSL_STV : Try for acevio 
4 50 FAIL_ so” SSS_A AcCY 0 
oc OD PUSHL 4 ACCVIO 
1D36'CF 01 FB CAL ts P UTREG. CHECK 
SSETPRT_S TWADR = ; ‘a Mappness.- : Reset buffer protection 
07 50 ~=O«EB BLBS RO,20$ : Skip error report if OK 
50 DD PUSHL R ; Save error code 
1F15'CF 01 FB CALLS #1,NONSUB_SSE ; Print the failure 


208: 
+ 


: Test inadr of system space address 


4 DOOOOO 


AUE WY OOONOUSE 


PUPP PTSPVSTSIASIIIVIV 


a a a ek td 8 td od td = 9 8 ts = ts I OOOO OOOCOO 


SSDP APA AIA AAA AAA AOU EE 
So A MO Gococososososoco Ho MD OAL EOOXO- MO SO> FPOWWIOovs 


J 
o 
SOOOOCOOOCOCOOCOOCOOOCOOOOOOOOOCOOOCOOOOOOOOOOSoO 


NEXT_TEST 
STP4: 
0006'CF 4 po MOVL #4 ,W*CURRENT_TC 
0 PUSHL ao 

1D2C°CF 1 FB 17 CALLS #1,W*REG_SAVE 
369'CF DE 1 covet “x  INADDRESS ; Set a system space address 
3eD'cr  BOODDOOO'ER DE H 180000000, INADDRESS +4 . 

20 SCRRPSC _S INADR = {NADDRE 


J 10 
lS” USERS HATE SYSEN SeICE EST © CESEIOEE RADE NERY SeStetOSBo mans "1° Uh 


186 28] CHAN = SECFAB+FABSL_STV 
4 pd Otae Fae cHE San ess$ NOPRIV 
1D36'CF 84 FB 1A6 CALLS #1 UPREG. CHECK 
i ge 
1AB 5 : Test virtual address space full 
1A8 8 : 
hi 
148 5 NEXT_TEST 
1A8 STPS: 
0006 ' CF 09 + \ nate S5 oU" CURRENT 76 
1D2C'CF 1 FB 18 0 CALLS #1,W*REG_SAVE 
0369'CF 70000000 ‘EF DE 187 1 MOVAL *x70000 » INADDRESS 3 Set P1 dd 
OS60°CF —70000000°EF DE ICD 33g MOVAL — “XP00R0000 FNADDRESS#4 a3 us et seater cat er 
1¢ SCRMPSC_S INADR = [NADDRESS,- 
169 4 AN = SECFAB+FABSL_STV 
1E7 535 FAIL_CHECK o58 VAST tl 
00000244 8F DD 1€7 PUSHL #SS$_VASFULL 
1D36'CF 1 FB 1ED CALLS #1,W*REG_CHECK 
O369'°CF O600'°CF ODE ire § MOVAL READ_BUF,INADDRESS ; Reset to PO space address 
036D'CF O7FF'CF DE 200 . MOVAL READ_BUF +*X1FF, INADDRESS+4 
0 9; 
09 rt ; Test illegal address in retadr 
6 4¢ :- 
00 4 
rf 44 NEXT_TEST 
0 STP6: 
0006'CF 66 +3 ? ale SSM CURRENT LTE 
1D2C "CF 01 FB 4 45 CALLS #1,W*REG_SAVE 
C 346 SCRMPSC_S INADR = INADDRESS,- 
¢ 56 CHAN = SECFAB+FABSL_STV,- 
C 278 RETADR= 1 
E 49 FAIL_CHECK SS$_ACCVIO 
oc DD PUSHL #SS$_ACCVIO 
1D36'CF 1 FB as aa CALLS #1,W"REG_CHECK 
51: 
26 3; Test no write access for retadr 
34 :- 
33 NEXT_TEST 
STP7: 
0006 ° CF 00 Be ; pov #7 W°CURRENT _1C 
1D2C CF 9 FB C CALLS #1 ,W*REG_ SAVE 


<c 


SS ee 


ea 


07 
1F15'CF i 


1D36'CF Of 
07 50 

50 

1FIS'CF 8601 
0006'CF 08 
00 

1w2c'cr 01 


0000016C 8F 
1D36'CF 01 


0006'CF 09 

00 

12c'cr 01 

0000016C 4 
D36°CF 
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SYSTEM SERVICE TEST 


NOUS O0Oo~s 


PAAAAOCOOIM 


PUPP SISTA PUPP 
ONIN NNN NNO OO 
SOWOONOUSWN—OOR 


SSETPRT_S oo = = SutapeRess.= 


#PRTSC_NA 
BLBS R ‘ $ 
PUSHL R 
on CALLS #1,NONSUB_SSE 
SCRMPSC_S INADR = INADDRESS 
CHA SECFAB+EABSL _STV.= 
RETA ADR= READ. 
FAIL_ CHECK S38 ACCY 
PUSHL ~ #SS © eevio 
CALLS *REG CHECK 
SSETPRT_S INADR = OUTADDRESS,- 
PROT = T$C_UW 
BLBS _R0,20$ 
PUSHL R 
CALLS #1,NONSUB_SSE 
20S: 
3+ 
; Test no channel and no PFNMAP flag bit set 
NEXT_TEST 
STP8: 
MOVL  #8,W*CURRENT_TC 
PUSHL 
CALLS #1,W*REG_SAVE 
SCRMPSC_S INADR = INADDRESS 
FAIL_CHECK SS$_IVSECFLG 


E 
#SS$_IVSECFLG 


~~ PUSHL 
#1,W*REG_CHECK 


CALLS 
+ 


: Test chan and PFNMAP 


NEXT_TEST 
STP9: 
MOVL #9,W*CURRENT_TC 
PUSHL # 
CALLS #1,W*REG_SAVE 
SCRMPSC_S INADR = INADDRESS,- 
FL AGS = #SECSM_PF 
HAN = SECFABTFABSL ety 
FAIL “CHER “°° IVSECFLG 
sss IVSECFLG 
CREE #1 ,W"REG_CHECK 


"SrSEP=1986 04:50:48 


AX/VMS Macro v04-0 
UETPSY.S 


Page 1 


Red UETSS -MAR;1 (3) 


Set retadr protection 


Skip error report if OK 
Save error code 
Print the failure 


Reset retadr protection 


Skip error report if OK 
Save error code 
Print the failure 


vers mM00 
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0006' CF 00 
1D2C°CF 1 


opoges¢ F 
1036 CF 1 


0006'CF 0B 
00 

1D2c'cF 01 
07 50 

50 

1FIS'CF 8601 


eorres ce 8F 
1D36°CF 
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1FIS'CF 8601 
0600°CF 00 
0600' CF 
0006'CF OC 


dO 
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dD 
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E8 
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L 10 
p SYSTEM SERVICE TEST etiam ts re te at; 


“SEP- 
; Test illegal channel 
NEXT_TEST 


STP10: 
#10,W*CURRENT_TC 


#1,W*REG_SAVE 
SCRMPSC_S INADR = INADDRESS,~ 
= 
FAIL_CHECK SS$_IVCHAN 
PUSHL 


#SS$_IVCHAN 
CALLS #1,W*REG_CHECK 


: Test non-file channel device 


NEXT_TEST 


MOVL #11,W*CURRENT_TC 
PUSHL 
CALLS #1,W*REG_SAVE 
SCREMBX_S CHAN = TTCHAN 
BLBS “RO, 108 
PUSHL R 
CALLS #1,NONSUB_SSE 
SCRMPSC_S INADR = INADDRESS,- 
= TTCHAN 


TCHA 
FAIL_CHECK SSS$_NOTFILEDEV 
PUSHL &#SS$_NOTFILEDEV 


10$: 


CALLS 
SDASSGN_S CHAN 
BLBS RO,20$ 
PUSHL R 
CALLS #1,NONSUB_SSE 
mOVCS 


> Create the si 
3; read only section. 


NEXT_TEST 


MOVL #12, W*CURRENT_TC 


#0,READ_BUF ,#0,#512+4,READ_BUF 


AX/VMS Ma 


UETPSY. 


cro V04-0 ° 1 
eRe sGevesmmoo.mans1 2% 18, 


Make a no RND, FOD, DIR channel 
Skip error report if OK 

Save error code 

Print the failure 


Try it 


Get rid of the mail box 
Skip error report if OK 
Save error code 

Print the failure 


; Clear the buffer and it's bumper 


lest section. One page, user, temporary, PO, private, local memory, 


Mm 10 


UETSSMMOO VAX/VMS_UETP SYSTEM SERVICE TEST 16-SEP-1 9: AX/VMS Macro V04-0 Page 17 
Vb42000 CAMPSC TESTS Breee bbe barsoste LORt bey cae soeyeemazo.man:1 2% 1, 
0 oD i] PUSHL # 
1D2C'CF 8 FB , CALLS i, W*REG_SAVE 
¢ 3 SCRMPSC_S CHAN = SECFAB+FABSL_STV,=- ; Create the temp PO private read 
C D we DRESS ; local memory section 
E 40 FAIL. —. sss. CRE 
poorest? F OD E mS CREATED 
10 ‘tf 1 FB E st ° W*REG_CHECK 
369°CF OF E 641 PUSHAL INADDRESS ; Push address quad word 
FFFFFFFF 8F ODD F o¢6 USHL ; Push start data value 
1E89'CF 2 FB F 4 CALLS #2,0 CHECK ; Check section data 
F G44 $DELTVA -§, iNADR™ ; INADDRESS > Clean up 
07 28 EB 040 45 BLBS 10$ ; Skip error report if OK 
0 oD ' 968 PUSHL RO’ ; Save error code 
1F15'CF 01 FB 04 64 CALLS #1,NONSUB_SSE ; Print the failure 
41 o28 10$: 
tie 680 5 
41 651 ; Create the second simplest section. One page. user, beagerery. Pl, private, local 
rf $36 ; read only section. Introduce the use of RETADR and FLAGS. 
41 654 ;- 
41 655 
re 656 NEXT_TEST 
41 STP13 
0006'CF 0D DO 041 MOVL #13,W*CURRENT_TC 
00 OD 1 PUSHL 
1D2C'CF 01 FB 1 CALLS #1,W*REG_SAVE 
0369'CF DBFO CE DE er = 10000 ¢3") INADDRESS ; Put a Pl address in the inadr 
036D'CF D6F1 CE DE KLEE CSP) INADDRESS+4 


VAL 
SCRAPSC 5 CHAN = SECFAB+FABSL_STV,- 


PRRRR RR RRR PRR 


0090909090969 09 69 69 09 09 09 NIA AOA MUIMIUIPOMIPONMONUNIND 


S = #SECSM EXPRE 7 
66 ine = INADDRESS 
66 RETADR = OUTADDRESS 
664 FAIL_CHECK oes. CREATED 
00000619 4 PUSHL #SSS CREATED 
1D36'CF 1 FB CAL Us #1,W*REG_CHECK 
0361'CF F 665 PUSHAL OUTADDRESS ; Push address quad word 
FFFFFFFF 8F ODD 66 PUSHL #-1 ; Push start data value 
1E89'CF O02 FB 66 CALLS *2 DATA_CHECK 3; Check section data 
66 SDELTVA_ S iNADR™ = QUTADDRESS : Clean up 
07 28 E8 BLBS ,10$ ; Skip error report if OK 
OD PUSHL R ; Save error code 
1FIS‘'CFE OF FB CALLS #1,NONSUB_SSE ; Print the failure 


Test read/write section creation on a read only file. 


POAASCASOOAOOO 
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NEXT_TEST 
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F ed tek tel tek tek de ede ek tee ke 


0006'CF OF 00 MOVL #14,W*CURRENT_TC 


<c 


1D2C'CF of 


O00003FC : 
D36°CF 


07 50 
és 
1F15°CF 1 


07 28 
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1616'CF 01 
OO06'CF OF 

00 
1D2c'cr 01 
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Sp emi Mal aw rt 


"$73Eb=1986 84:88:18 WEtpsy.saciuevssmmoo.mar:1 29° (8, 
PUSHL 


CALLS i, W*REG_SAVE 
SCRMPSC 5, CHAN = Sect Ber ast _5TV,= 
Less #SECS vt 
SOLA DORESS 
osse NO Sh! 


CALLS CHECK 
SDELTVA_ : THADR = GUTABDRESS 
BL BS ,10$ 


WA 
FAIL WCHECE' S38. 


: Clean up 
3 Skip. error report if OK 

PUSHL 3; Save error code 
CALLS #1,NONSUB_SSE ; Print the failure 
SDASSGN_S CHAN = SECFAB+FABSL_STV ; Deassign the read-only channel 
BLBS RO,20$ ; Skip error report if OK 
PUSHL 3; Save error code 
CALLS #1,NONSUB_SSE ; Print the failure 
BISB2 #FABSM_PUT, SECFAB+FABSB_ FAC ; Make the file read/write 
SOPEN FAB = = SECFAB, 

ERR = RMS “ERROR ; Open the read/write channel 


: Create a one page user temporary P1 private local memory read/write section. 


NEXT_TEST 


STP15: 


MOVL #15,W*CURRENT_TC 
PUSHL # 
CALLS #1,W*REG_SAVE 


SCRMPSC S, CHAN = SECFAB+FABSL_S 
AGS = #SECSM EXPREG) SECSM. WRT,- 

THABR = INADDRESS 

RETADR = OUTADDRESS 
FAIL = CHECK SS$_CREATED 
PUSHL ~ #SS$_CREATED 

CAL ts #1 ,W*REG_CHECK 
PUSHAL OUTADDRESS Push address quad word 
PUSHL oo. Push start data value 


CALLS CHECK Check section data 
SDELTVA. s°HNADRS OUTADDRESS Clean up 

BLBS 0,108 Skip error report if OK 
PUSHL Save error code 


R 
CALLS #1,NONSUB_SSE Print the failure 


: Create a one page user temporary PO private local memory read/write section. 


NEXT_TEST 


<c 


oe 


0006' CF a0 
1D02C"CF 6 
CF 
CF 


sect FFF 


0006 'CF 
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B11 
4 SYSTEM SERVICE TEST 


MOVL 
PUSHL 
CALLS 


MOVAL READ BUF eh A hd ial 


MOVAL RE 

SCRMPSC_S 
FLA 

1 

RE 


"$SEp=1986 04:96:48 
e16. W*CURRENT_TC 


4 »W*REG_SAVE 


“X1FF,INADDR 
"SECFABSEABSL 


nouns 
= 
“ 
m 
oO 
bad 
=z 
m 
aa 
uv 


rut t 
PUSHAL GUTADDRESS 
PUSHL #- 


#2.DAT 


CHECK 


CALLS 
SDELTVA_S iNADR = OUTADDRESS 
BLBS ~RO,10$ 


PUSH 


L RO 
CALLS #1,NONSUB_SSE 
SDASSGN_S CHAN = SECFAB+FABSL_STV 
BLBS RO,208 


PUSHL 


CALLS #1,NONSUB_SSE 


i a three page 
R is specified 


NEXT_TEST 
MOVL 

PUSH 
CALLS 

SERASE FAB = 
ERR = 
MOVW #<325 
SCREATE FAB = 
= 

SCONNECT RAB 
ERR 

SWRITE RAB = 
ERR = 

SCLOSE FAB . 


ERR 
SOPEN FAB = S 
= 


ADDLS = #*xX40 


user temporary PO private 
in reverse order. 


#17,W*CURRENT_TC 
#1 ,W*REG_SAVE 


LERAB+RABSW_RSZ 
R 


AX/VMS 0 V04-0 Page 1 
UETPSY SRE TUErSsmmoO.maR;1 °° t%) 


; Reset to a PO address 


; Push address quad word 
; Push start data value 

3; Check section data 

; Clean up 

; Skip error report if OK 
; Save error code 

; Print the failure 


: Deassign the channel to the old fi 
; Skip error report if OK 

; Save error code 

3; Print the failure 


local memory read/write section. 


Delete old one page file 
Set 5 page size 


:; Create a 3 page file 

; Connect the RAB 

; Write 3 pages of incrementing data 
; Close the 3 page file 


; expand the input buffer size 


C 11 
TSSMMOO VAX/VMS_UETP SYSTEM SERVICE TEST 16-SEP-1984 9: AX/VMS Macro v04-0 Pa 
VF S800 CRMPSC TESTS g- -SEP- =138% 8} 1 af UETPSY.S Re) UETSSMMOO.MAR; 1 - ra 
O36D'CF  O600'CF DE -0668 7 MOVAL  READ_BUF, INADDRESS+4 
E Ff 4 SCRMPSC_S CHAN = Seer aa rr nest STV.= 
ae FLAGS = #SECSM_WRT,- 
’ F 7 INADR = INADDRESS,=- 
Be. RETADR = OUTADDRESS 
691 775 FAIL_CHECK SS$_CREATED 
ooorne'9 +4 DD 34 PUSHL ~ #SS$_CREATED 
10 “'§ 1 FB 0697 CALLS _#1,W*REG_CHECK 
361'CF DF 069C o7¢ PUSHAL OUTADDRESS ; Push address quad word 
FFEFFFFFF 8F DD AO 77 er 93 . ; Push start data value 
1E89'CF 2 FB 06A6 ore SDE CHECK ; ore section data 
6AB of DEL TVA. 4 “{NADR™ 2 BUTADDRESS F Lean up 
07 50 E8 OQ6BA 0 LBS) ~RO,10$ $ gf p error report if OK 
50 OD 068d 781 eb eit R ; Save error code 
1F1S'CF OF FB Q6BF 7 ¢ CALLS #1,NONSUB_SSE ; Print the failure 
6C4 7835 10$ 
6C4 784 
6C4 785 ;+ 
6c4 7 § ; 
th 4 5 ; Create a three page user temporary P1 private local memory read/write section. 
az re 3° 
06C4 790 
0604 79) NEXT_TEST 
6C4 
6C4 STP18 
0006'CF 12 DO 06C4 MOVL #18,W*CURRENT_TC 
00 bd 06C9 PUSHL 
1D2C ‘CF 01 FB bere 79 CALLS #1,W*REG_SAVE 
0369'°CF 7FOOOOOO'EF DE 0600 79 ove *X7F 000000, INADDRESS : Set Pl address up 
O36D'CF 7FOOOOOO'EF DE 06D9 794 MOVA Me F000000, INADDRE tt 
06E2 795 SCRMPSC_$ CHAN = = SECFAB+FABSL_STV,- 
O6E 796 FLAG #SECSM URTISECSM. EXPREG,=- 
BOE 797 tHAGR = = INADDRESS ~ 
6E2 798 RETADR = OUTADDRESS 
858 799 FAIL_CHECK SS$_CREATED 
00000619 8F ODD re PUSHL ~ #SS$_CREATED 
1D36'CF 01 FB 7 CALLS #1 »W*REG_ CHECK 
0361'CF DF 071 800 PUSHAL GUTADDRESS ; Push address quad word 
FFFFFFFF 8F DD 071 + PUSHL ; Push start data value 
1E89'CF O02 FB 0710 oe CALLS #2 DATA_CHECK 3; Check section data 
722 80 SDELTVA.S {NADR™= OUTADDRESS : Clean up 
07 28 E8 0731 pe BLBS ,10$ ; Skip error report if OK 
5 DD 0734 5 PUSHL ; Save error code 
1F15"CF O01 FB 0736 88 CALLS preys ; Print the failure 
738 07 10$: 
738 38 
: 8 4 os 
738 18 ; Create a two page user temporary PO private local DZRO read/write section. 
4 4 \§ ; INADR is specified in reverse order. 
738 14 ;:- 
738 15 
4 8 16 NEXT_TEST 


1 
1D2C'CF i 

CF 

CF 


00000619 8F 
wae at 1 
361°CF 


1€89' CF 
OOOO'CF 0400 8F 


07 50 
50 
1FIS'CF 601 


0365" DF 


O006'CF 14 
00 

1D2c'cF 01 
70000000" EF 
70000000 ' EF 


0369'CF 
036D' CF 


porrer'? ' 
6'CF 
0361'CF 


1E89'C 3 


0361'DF  0000'CF 6600 


07 8 
1F15°CF i 


D 11 
SYSTEM SERVICE TEST 


Push address quad word 
Push start data value 
Check section data 

Fix 3 DZRO pages 
Hees up 
Skip error report if OK 
Save error code 
Print the failure 


CALLS 
A page poset 


CALLS DATA 

ATH 5125, URITE BUF 
SDELTVA_ § INADR = OUTADDRESS 
BLBS ~RO,10$ 


PUSAL 
CALLS 


@OUTADDRESS 


#1,NONSUB_SSE 
10$: 


U SEP-1984 9: AX/VMS Macro V04-0 
TE i SEP-1984 8} iH 3 UETPSY.S REI ETSSMMOO.MAR; 1 
4 STP19: 
MOVL  #19,W*CURRENT_TC 
74 PUSHL # 
oe 17 CALLS #1,W*REG_SAVE 
74 1 novel 44 BUF, sceShgeapai>, 
74 1 BUF #<<512%2>-1> INADDRESS 
7 SCRAPSC 5 “ON = SECF 
7 1 FLAGS = PSECSR *ORTISESSM’ “DzRO,- 
7 § i HAGR = INADDRESS,-=- 
7 a5 gt = #2,- 
03 4 RETADR = OUTADDRESS 
779 5 FAIL otnett SS$_CREATED 
779 PUSHL #SS$_CREATED 
77F CALLS = #1,W*REG_CHECK 
0784 | 6 PUSHAL S TADDRESS ; Push address quad word 
gree 7 PUSHL : oe start data value 
pea 8 CALL DATA_C at heck section data 
07 F 9 MOVC #2,DATA.C RITE_BUF acoutappressed>. » Fix 2 DZRO pages 
799 830 SDELTVA_S INADR = OUTADDRESS ; Clean up 
07A8 31 BLBS —RO,10$ ; Silo error report if OK 
07AB § USHL R ; Save error code 
B7A0 CALLS #1,NONSUB_SSE ; Print the failure 
gas fis 10 
a 
. Hs ; Create a three page user temporary P1 private local DZRO read/write section. 
ofbs 840 i 
A ne NEXT_TEST 
7B STP20: 
7B MOVL Seve SURRENT TS 
07B PUS 
L V 
1h a4 843 CALLS #1 ,W*REG_SAVE 
Ore ste povar ant 00000 BR > IRADBRESS 
Q 45 000000, INADDRESS+4 
46 SCRMPSC 3 CHAN 5 SECE ABS FABSL_STV,- 
4 FLAGS = #SECSM WRT! SECSM_ DZRO! SECSM_EXPREG,=- 
ry INADR = INADDRESS,- 
4 RETADR = OUTADDRESS | 
50 FAIL othe SS$_CREATED 
PUSHL ~#SSS, CREATED 
W"REG_CHECK 


OOONOUS wh 


0000000090000 000000 
PANAMANIAN 


AA PWM VAD 


re i 


E 11 
UGE ETE SYST SencE TEST” UAE ALSORE WSHPTE Sette Ra mans "O° # 


F ee i+ 
F ; 
f és ; Create a three page user temporary P1 private local CRF read/write section. 
r 65 i- 
; 5 NEXT_TEST 
Ff STP21 
0006'CF 15 eS t so ag »W*CURRENT_TC 
1D2C'CF 1 FB 4 6 CALS #1,W*REG_SAVE 
B $3 SCRMPSC_S CHAN = SECFAB+FABSL_STV,- 
B 0 FLAGS = #SECSM_WRT!SECSM_CRF !SECSM_EXPREG,- 
838 71 INADA = INADDRESS 
8 B ce RETADR = OUTADDRESS 
61 87 FAIL_ saa SS$_CREATED 
pporost9 +4 OD 4 PUSHL #SS$_CREATED 
1D36'CF 1 FB 67 CA rts #1 »W*REG_ CHECK 
0O361'CF OF BB9s 874 PUSHAL GUTADORESS ; Push address quad word 
FFFFFFFF 8F DD 087 875 PUSHL ; Push start data value 
1E89'CF O02 FB 0876 876 CALLS #2 DATA_CHECK 3; Check section data 
0878 877 SDELTVA_ S ENADR™ = OUTADDRESS : Clean up 
07 50 ~=«2«€8 tt 78 an i ,10$ :; Skip error report if OK 
50 DD 088D 79 PUSHL RO” ; Save error code 
1F15'CEF 01 FB O88F 80 CALLS #1 ,NONSUB_SSE ; Print the failure 
0894 81 10$: 
0894 +t 
baoe Baa 
Oboe HH : Create a two page user temporary PO private local CRF read/write section. 
ae 
a894 889 NEXT_TEST 
0894 STP22: 
0006'CF 16 44 pe28 pov Og2 U°CURRENT _1C 
1D2C'CF 1 FB HH 890 CALLS #1,W*REG_SAVE 
0369'CF 0600'CF DE A 91 oe READ_BUF , INADDRESS 
036D'CF OA00' CF DE A 3 MOVA READ- BU UF +#<512%2> riggs 
AE 89 SCRMPSC _S CHAN = SECFAB+FABSL_STV 
BAe 94 FLAGS = fade WRTISECSM, CRF, - 
AE 95 INADR = INADDRESS,- 
AE 9 od = 
A 9 RETADR = OU fe ADDRESS 
D 98 FAIL_CHECK SS$_CREATED 
pponnet# F DD D PUSHL ; S$_CREATED 
1036‘ CF 1 FB D CAL Us »W™REG_ CHECK 
0361'CF OF DD 99 PUSHAL GUT ADDRESS ; Push address quad word 
FFFFFFFF BF DD E1 PUSHL ; Push start data value 
1E89'CF 2 FB E7 1 ALLS 2,DATA_CHECK ; Check section data 
EC ¢ DELTVA.S SINADR™ : NE UTADDRESS : Clean up 
07 50 €8 FB OQ BLBS ; Skip error report if OK 
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0 odd F 4 PUSHL R ; Save error code 
1F15°CF 84 FB ; 5 108 CALLS #1,NONSUB_SSE : Print the failure 
3 3 
au 0p 
9 ; Create a one page (by PAGCNT) user temporary PO private local CRF 
9 911; rea d/write section. . . . 
90 318 3 
9 4 i- 
9 14 
3 915 NEXT_TEST 
9 STP23 
0006'CF 17 dO 0905 MOVL Gi? CURRENT FE 
+ 0D ape PUSHL # 
1D2C'CF 1 FB Bye 91 CALLS #1,W*REG_SAVE 
911 319 SCRMPSC_S CHAN = SECFAB+FABSL_STV, 
911 918 FLAGS = #SECSM URTISECSM, CRF, - 
911 919 INADR = INADDRESS,= 
0911 920 RETADR = - hamatacactel 
ae 3 ) FAIL_ CWEEK’ $88.¢ CREATED 
00000619 8F 0D 333 PUSHL #SS$_C REATED 
1D36'CF 01 FB 0938 CALL Us #1,W *REG CHECK 
0361'CF OF 940 923 PUSHAL OUTADDRESS ; Push address quad word 
FFFFFFFF 8F OD 944 924 PUSHL #-1 ; Push start data value 
1E89'CF O02 FB O946A 925 CALLS #2 DATA_CHECK ; Check section data 
94F 9 6 SDELTVA.S o NADR™= OUTADDRESS : Clean up 
07 50 €8 OQ95SE 9 BLBS 0,10$ ; Skip error report if OK 
50 ODD 0961 928 PUSHL R ; Save error code 
1FIS'CF OF FB 0963 929 CALLS #1,NONSUB_SSE ; Print the failure 
96 930 10$: 
96 931 
ot es 
96 3 4 ; Create a three page (by PAGCNT) user temporary P1 private local DZRO 
96 935 ; read/write section. 
96 9 § 3 
96 937 ;- 
96 9 3 
%6 9 NEXT_TEST 
9 
0006'CF 18 DO 096 MOVL #24 ,W*CURRENT_TC 
6 DD 96D PUSHL 
1D2C'CF 1 FB > i CALLS #1,W*°REG_SAVE 
0369'CF 7000000 ae DE 974 rag “x7 ~ INADDRESS 
036D'CF 70000000‘ EF DE 97D VAL X 70000009, arr 409 3 gg 
986 SCRAPSC 3 ie = FABSL_STV,- 
986 FLAGS = Seti AB "EXPREG!SECSM_ WRT! SECSM_DZRO,- 
986 ABR = INADDRESS 
986 RETADR = 9 UTADDRESS, - 
986 PAGCNT 
9AE FAIL_CHECK SS$_ CREATED 


C—O ttt 
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00000619 8F 0D 9A *USHL #SS$_CREATED 
D o'er FB 385 “LLS —_#1,W*REG_CHECK 
61'CF DF 989 49 PUSHAL TADDRESS ; Push address quad word 
189° CF Pe Boer 88h atte CHECK : Chee “section ¢ = pers 
: Check section data 
0361'DF 0000' CF §600 8 9C4 sours #e4es 5 Os URI TE E_BUF ,@OUTADDRESS ; DZ7RO pages 
9CE SDELTVA_ s INAD: = OUTADDRESS ; ae $e 
07 8 EB 090 4 4 BLBS ,10$ ; Skip error report if OK 
DD OQO9E 5 PUSHL R 3; Save error code 
1F15'CF . . ¥e E 928 108 CALLS #1,NONSUB_.“E ; Print the failure 
9E 
aon 
aee +2 ; Create a three page (PAGCNT=4) user temporary PO private local read only section. 
9E7 308 3° 
9E7 964 
967 965 NEXT_TEST 
9E7 
9E7 STP25: 
0006'CF 19 dO 9E7 MOVL | icctaa i 
00 OD O9EC PUSHL 
1D2C CF 01 FB O3F 96 CALLS #1,W*REG_SAVE 
0369'CF 0600'CF DE OF 96 MOVAL 4 BUF , INADDRESS 
036D"CF QE00' CF DE O9FA 968 MOVAL REA BUF #<512%4> INADDRESS+4 
QA01 34 SCRMPSC_S ards = SECFAB+FABSL_STV,- 
AQ1 970 FLAGS = #SECSM EXPREC, ~ 
AQO1l 971 INADR = INADDRESS 
Ag1 76 RETADR = QUTADDRESS, - 
AQ1 97 PAGCNT = 34 
A29 974 FAIL seg SS$_ CREA TED 
00000619 8F DD OA29 PUSHL #SS$_CREATED 
1D36'CF 01 FB OA2F CA rts #1 »W*REG_ CHECK 
0361°CF DF OA34 975 PUSHAL OUTADDRESS ; Push address quad word 
FFFFFFFF 8F DD A38 376 PUSHL oo ; Push start data value 
1EB9'CF O02 FB OA 97 CALLS 2,DATA_CHECK ; Check section data 
ASS 6-978 SDELTVA_S §- INADR™ = QUTADDRESS : Clean up 
07 50 €8 OAS 979 BLBS “Ro. 10$ ; Skip error report if OK 
50 DD A 980 USHL ; Save error code 
1F1S°CF OF FB OA 981 CALLS #1,NONSUB_SSE ; Print the failure 
ASC 9 ¢ 10$ 
ASC 9 
Ae ge 
. : 4 § : Create a one page VBN 1 user temporary PO private local read only section. 
ca ee 
Ae 
n : 990 NEXT_TEST 
ase STP26 
0006'CF 1A DO OA MOVL  #26,W*CURRENT_TC 
0D ne PUSHL 
1D2C CF FB OA CALLS #1,W*REG_SAVE 
A6 991 
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A 3 SCRMPSC_S CHAN = SECFAB+FABSL_STV,- 
A FLAGS = #SECSM EXPREG,- 
A 4 INADR = INADDRESS,-=- 
A 95 RETADR = QUTADDRESS ,~ 
A 36 PAGCNT = #1,- 
A 388 FAIL_CHECK Hey CREATED 
09090619 ef DD QA? “ PUSHL ~ ore CREATED 
1D ff 1 FB QA CALLS a »W™REG_CHECK 
361'CF DF OA9B 99 PUSHAL OUTADDRESS ; Push address quad word 
FFFFFFFF 8F OD QASF 1 PUSHL #-1 ; Push start data value 
1E89'CF 2 «#=FB 1 ALLS  #2,DATA_CHECK 3; Check section data 
AAA 1 DELTVA_S [NADR™= OUTADDRESS : Clean up 
07 28 —€8 QOAB9 1 BLBS RO,10$ ; Skip error report if OK 
: DD QABC 1004 PUSHL ; Save error code 
1F15°CF 01 FB OABE 1005 CALLS #1,NONSUB_SSE ; Print the failure 
ACS 1 § 10$ 
ACS 1 
Acs 1009 5 
~ : 1 ; Create a two page VBN 2 user temporary P1 private local read only section. 
gee Haig 
Ae Siz NEXT_TEST 
AC STP27: 
0006'CF 8 +4 rv: at | al ata te 
1D2C'CF 64 FB ase 1015 CALLS #1,W*REG_SAVE 
O3ep'cr —FO000000'EF DE. -OADB. JOT MOVAL “470000000. INADDRESS+4 
Gael 1016 SCRMPSC_S CHAN = SECFAB+FABSL_STV,- 
AE? 101 FLAGS = #SECSM_EXPREG,- 
OAE1 1020 INADR = INADDRESS,- 
E1 1021 RETADR = OUTADDRESS,- 
—1 1 § PAGCNT = #2,- 
AE1 1 VBN = 
B09 «1024 FAIL_CHECK SS$_CREATED 
00000619 4 DD 0B09 PUSHL #SS$_CREATED 
1036'CF 1 FB OBOF CALLS  #1,W*REG_CHECK 
0361°CF OF B14 1025 PUSHAL OUTADDRESS ; Push address quad word 
FFFFFE7F 4 dD B18 (1 § PUSHL -1-128> 3; Push start data value 
1E89'CF 2 FB OBIE 1 CALLS #2,DATA_CHECK ; Check section data 
B23 1 ! SDELTVA_S [NADR™= OUTADDRESS : Clean up 
07 8 E8 OE 1 BLBS RO,10$ ; Skip error report if OK 
DD 08 1030 PUSHL ; Save error code 
1F15°CF se 1031 CALLS #1,NONSUB_SSE ; Print the failure 
BSC § 10$ 
BSC 1 
se 1085 
B ; ' § ; Create a three page VBN 3 user temporary PO private local read only section. 
Bsc :- 
BSC (1 § 
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: : 1040 NEXT_TEST 
BSC STP28 
0006'CF 1 dO : MOVL #28,W*CURRENT_TC 
8 DD B4 PUSHL # 
1D2C'CF FB +1 106 CALLS #1,W*REG_SAVE 
8 69° CF Soper D B4 1 ‘3 povar READ_BUF , INADDRE 
036D'CF COO'CF i) B4F 104 READ BUF + , Luaponss inaponess+4 
1044 SCRMPSC_§ CHAN = SECFAB+EAB 
: 1045 = #SECSM eReR 
: 1 $6 THAGR = INADDRESS,-=- 
B56 104 RETADR = OUTADDRESS,- 
Bee 1048 PAOOON = a8. 
7E 1050 FAIL. Ss SS$_ CREATED 
m 000619 ef DD OB7E PUSHL #SS$_CREATED 
"CF 1 FB SS CALL Us #1 ,W"REG_CHECK 
O361'CF OF B89 «61051 PUSHAL renioedeise ; Push address quad word 
FFFFFEFF 8F ODD 8 1926 PUSHL #<=1-<2*128>> 3; Push start data value 
1E89'CF O02 FB 0893 105 CALLS CHECK : Check section data 
38 1054 SDELTVA.§ rns = QUTADDRESS : Clean up 
07 50 €8 OBA? 1055 BLBS RO,10$ 3; Skip error report if OK 
50 DD AA 1928 PUSHL R : Save error code 
1F1IS'CF O01 FB 105 CALLS #1,NONSUB_SSE ; Print the failure 
1 23 10$ 
105 
130 
! $¢ ; Create a one page VBN 4 user temporary PO private local read only section. 
ee i- 
1065 
1066 NEXT_TEST 
0006'CF 1D 00 
69 OD PUSHL 
1D2C ‘CF 1 FB 1 CALLS #1,W*REG_SAVE 
1 SCRMPSC_S CHAN = SECFAB+FABSL_STV,- 
1 FLAGS = #SECSM_EXPREG,- 
1 INADDRESS 
1 GNTADDRESS, 
1 
1 = #4 
1 FAIL_CHECK Hay _ENDOFFILE 
00000870 ‘ DD PUSHL #SS$ EN DOFFILE 
D36'CF FB C ALLS #1,W"REG_CHECK 


3 3 Create a Supervisor section 


SoOoooo°oc[eo Coooocecoo 
SNNN NOOO 
—O fwn—-O0ean 
uz 
»>m 
ao- 
tat 
@wzo 
z=-mz 
nunnnne 


ee 


STP29: 
MOVL 25 YOUNG FE 
2 NEXT_TEST 
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CRMPSC T -SEP-1 UETPSY.SRCJUETSS MAR; 1 
OBF 
BF STP30: 
0006'CF 1 DO OBF MOVL #30,W*CURRENT_TC 
DD OBF PUSHL # 
1D2C'CF FB Af 1083 CALLS #1,W*REG_SAVE 
OOOA'CF O1EB'CF ODE oF ! : MOVAL SM,MODE ; Set the mode ID address 
C 1 3+ 
CO3 108? 
: } gi ; Create a Executive section 
€03 1090 :- 
C 1091 
: 1092 NEXT_TEST 
C STP31 
0006'CF 1F dO C MOVL #31,W*CURRENT_TC 
0 DD OC PUSHL 
1D2C'CF 01 FB : ; 1093 CALLS #1,W*REG_SAVE 
QOOA'CF O1FS'CF ODE 3A 1 3¢ MOVAL EM,MODE 3; Set the mode ID address 
C16 «(1 38 3¢ 
C16 1097 ; 
C16 1098 ; Create a Kernal section 
C16 1099 ; 
C16 1100 ;:- 
C16 1101 
ete 1102 NEXT_TEST 
C16 STP32 
0006'CF 0 it) C16 MOVL #32,W*CURRENT_TC 
0 DD C18 PUSHL F 
1D2C'CF 1 FB 3 1103 CALLS #1,W*REG_SAVE 
QOOA'CF OQO206°CF DE OC 1104 MOVAL KM,MODE ; Set the mode ID address 
QOOA'CF O1DC'CF ODE : 1192 MOVAL UM,MODE ; Set the mode ID address 
C 1109 3+ 
C 1108 | ; Global section tests 
C 11 
C 1110 : 0 Length GSDNAM 
4 1111 ; 
C 1118 to 
C 111 
; 1114 NEXT_TEST 
C STP33 
0006'CF 1 dO C MOVL #33,W°CURRENT_TC 
0 OD C PUSHL r 
1D2C'CF 1 FB ¢ tages CALLS #1,W*REG_SAVE 
C3C 1318 SCRMPSC_S GSDNAM = TEROSTRING.~ 
c3c (111 INADR = INADDR 
C3¢ 1118 CHAN = SE ECEABYPABSL _STV,- 
c3c «(111 FLAGS = #SECSM 
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CS 1120 FAIL CHECK ss$_ vio NAM 
109990154 BF F ppd OC ass IVLOGNAM 
fg i +" i CheLS 4 vPREG. CHECK 
C ; 1 gi; : 
C 1125 ; GSDNAM too Long (16 characters) 
C69 1104 : 
£3 1158 7 
c } 11 3 NEXT_TEST 
63 STP34 
0006'CF 2 po OC MOVL 434, »W*CURRENT_TC 
0 oD cg PUSH 
1D2C'CF 1 FB cf os CALLS #1,W*REG_SAVE 
¢75 (11 § SCRMPSC_S GSDNAM = TOOLONGSTRING, = 
C75 1130 INADR = INADDRESS,- 
€75 (1131 “CHAN = SECFABSEABSL _STV,- 
(75 11 : AGS = ofSECSN_6 
(97 (11 FAIL CHECK S88. 1VLOGNAM 
00000154 8F oD 0C97 Wees IVLOGNAM 
1D36'CF 01 FB 9p a CheLS #1 ,W®REG_CHECK 
CA2 1135: 
CA2 11 § 3; GSDNAM address unaccessable 
EAS 1188 | 
CA2 1139 ° 
cA 1140 NEXT_TEST 
CA STP35: 
0006'CF 6 DO OCA MOVL #35,W*CURRENT_TC 
0 DD OCA PUSHL 
1D2C'CF 1 FB Cag ae CALLS #1,W*REG_SAVE 
CAE 1148 SCRMPSC_S GSDNAM = 0,- 
CAE 114 I = INADDRESS,- 
CAE 1144 CHAN = SECFAB+FABSL_STV,- 
CAE 1145 = #SECSM_GBL 
CCE 1146 FAIL_CHECK SS$_ACCVIO 
oc bd Occ PUS #SS$_ACCVIO 
1D36'CF oie cD sad ad CALLS #1,W*REG_CHECK 
CD5 1148: 
CD 1108 ; Test no read access on GSDNAM 
ee 
Co5 11 ‘ : 
cD 1 NEXT_TEST 
CD STP36: 
0006'CF 24 vO OCD MOVE 436, »W*CURRENT_TC 
Go DD OCDA PUSH 
1D2C "CF 1 FB cD ies CALLS #1,W*REG_SAVE 
CE 1138 SCRMPSC_S GSDNAM = READ_BUF,- 


<c 
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Cel 11 INADR = INADDRESS,- 
fF 11 $ HAN = SECFAB+FABSL_STV,- 
C 11 8 FLAGS = #SECSM_GBL 3; Try for accvio 
D 11 FAIL_CHECK sos Actyio 
a oc DD OD PUSHL ass wACCVIO 
1D36'CF 1 FB OD CALLS #1,W"REG_CHECK 
BS Het 
DOA 1188 > Test no read access on IDENT 
DOA 119 ; 
DOA ies. 
p A 1188 NEXT_TEST 
DOA STP37 
0006'CF 33 0 44 pov #37 ,W*CURRENT_TC 
1D2C'CF 01 FB +H 1167 CALLS #1,W*REG_SAVE 
Di6 +1168 SCRMPSC_S INADR = OUTADDRESS,- 
bi 1169 CHAN = SECFAB+FABSL_STV,- 
D1 1170 FLAGS = #SECS$M_GBL,- 
D16 «(1171 GSONAM = GSDNAM,- 
go 18 1128 IDENT = READ_BUF 
D3A 117 FAIL_CHECK SS$_ACCVIO 
oc DD +4 A PUSHL #SS$_ACCVIO 
1D36'CF 1 FB OD3¢ CALLS #1,W*REG_CHECK 
gel gs 3 
D41 1178 : Test 11 Levels of logical name translation error 
D41 (1177 ; 
bey 178 
D4 1180 NEXT_TEST 
D41 STP38: 
0006 ' CF G0 ee ot = #36 .U°CURRENT _TC 
1D2C'CF 1 FB bes 1181 CALLS #1,W*REG_SAVE 
4 BB OD4D 11 § PUSHR #*M<R2> 3; Save it's contents 
2 04 Oe 1 2 108 CLRL R2 3; Set index variable 
Ds! 1185 —s- $SCRELOG_S LOGNAM = LOGICAL _NAME ,~ 
p51 11 § TBLFLG = #2,- 
D51 (11 EQLNAM = EQUIV_NAME ; Create a level of logical name 
07 50 E8 QD64 11 3 BLBS RO,208 :; Skip error report if OK 
3 DD OD67 11 PUSHL ay ; Save error code 
1F15°CF FB og? 13 208 CALLS #1,NONSUB_SSE ; Print the failure 
491°CR 9 og 1138 ; INCB NAME_INC1 : Bump the logical name by one 
49E* CF D 119 INCB NAME mts ; Bump the equiv name by one 
D7 52 be F D76 1194 AOBLSS #11,R2,108 ; Make 11 Levels 
4 BA QD7A 1195 POPR #*M<R2> ; Restore it 
p7C 1139 SCRMPSC_S FLAGS = #SECSM_GBL.- 
p7c 119 INADR = INADDRESS,- 
p7C 1198 CHAN = SECFAB+FABSL_STV,- 


<c 
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p7c 61199 GSONAM = GSD_LOGNAM 
DIE 1200 FAIL oChete SS$_TOOMAN YLNAM 
00000374 8F OD D9 PUSHL C S$_TOOMANYLNAM 
1D36'CF } + + 1201 cue CALLS »W*REG_CHECK . ind tebt 
; Reset 
0491'CF 3 | ! ¢ 408: bECE NAME _INC1 3; Back up to 8 Legal mene 
PAF i : abuated reunts s feet caL NAME Cl logical bl 
= : Clean rocess t 
07 26 E8 QDBE 1 § RO,50$ 3: Skip errer report i #9 Ox angele 
: DD ODCi 1 PUSHL 3; Save error code 
1F15'°CF 01 FB +: ! 3 508 CALLS »NONSUB_SSE ; Print the failure 
491'°CF 97 ODL 1210 DECB NAME_INC1 ; B the logical 
or $2 ba fo Dee I i ’ AOBLSS #11,R2,408 tin ol tt teats 
DDO 1213: 
8 } \3 : Test PRM GBL section creation without PRMGBL privilege 
Oppo 1319 i 
44 1218 NEXT_TEST 
Opp STP39: 
0006 ' CF er ° +43 et #39 ,W*CURRENT_TC 
1D2C "CF 01 FB opp? 1219 CALLS #1 ,W*REG_SAVE 
ODDC 1220 SCRMPSC_S ory = INADDRESS,- 
DDC 1221 HAN = SECFAB+F ABSL STV, 
poc 1 ¢ GSDNAM= GSDNAM,=- 
poc 1 § LAGS aie PERM! SEC$M_GBL 
EOS 1224 FAIL_ CWE CK” §S$N PRIV 
es DD OE0 PUSHL wr | NOPRIV 
1D36'CF 1 FB E04 CALLS #1 UFREG. CHECK 
8 gs 
393 \ ; : Create a one page user PRM GBL PO Local memory read write section. 
MR ie 
: 4 1231 NEXT_TEST 
E09 STP4O: 
0006'CF G0 + : 9 Ho #40,W*CURRENT_TC 
1D2C CF 1 FB 4 1 CALLS #1,W*REG_SAVE 
0369'°CF O600°CF ODE QE1 1 4 MOVAL READ_BUF , INADDRESS ; Set the PO address up 
036D'CF 9300" gt D eM 1234 MOVAL READ_8 BUF é zie INADDRESS*+ 
O355'CF O61 1 a - E ; 5 INSV yf { thers v.PR RMGBL . “i SeRIV _MASK ; Set the PRMGBL priv bit 
E2A 1 $ RVADR = = Ply MASK : Get the PRMGBL priv 
E 1 8 SCRMPSC_S TWA” = INADDRESS 
£38 1 CHAN = SECEABS# ABSL _STV.- 
—e38 1 rtf GSDNAM= GSDNAM,=- 
E3B 124 FLAGS = #SECSM_GBL!SECSM_WRT!SECSM_PERM 
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0369'CF 
036D'CF 


DSerer 01 
ha 
FFFFFFFF 8F 
1E89'CF 2 
07 


1FIS'CF 601 


0006'CF 9 
1w2c'cr 01 


00000200 HH 
00000200 8F 


Q006'CF 2A 
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dd ad dd II IOOTNMMMNMOCOCVVTWAWVOIDY>\Y } 


FAIL_CHECK SS$_CREATED 
PUSHL ~ # 


CALLS # 
PUSHAL INADDRESS 
PUSH #- 


L 
CALLS #2,DATA_CHECK 
SDELTVA_S [NADR™ = INADDRESS 
BLBS RO, 10$ 


PUSHL 
CALLS #1,NONSUB_SSE 


NEXT_TEST 


MOVL  #41,W*CURRENT_TC 


PUSHL 
CALLS #1,W*REG_SAVE 


ADDL2 #512, INADDRESS 
ADDL2 #512. INADDRESS+4 
SCRMPSC_S ENADR = INADDR 


ESS,- 
= SECFAB+FABSL_STV,- 


GSDNAM= GSDNAM, 
FLAGS = #SECSM.GBL 
FAIL_CHECK SS$_NORMAL 
PUSHL ~ #SS$_NORMAL 
CALLS — #1,W*™REG_CHECK 
PUSHAL INADDRESS 
PUSHL #- 
CALLS #2,DATA_CHECK 
SDELTVA_S INADR™ = INADDRESS 
BLBS  ~RO,10$ 
PUSHL R 
CALLS #1,NONSUB_SSE 


SDGBLSC_S_GSDNAM = GSDNAM 
BLBS  ~RO,20$ 
PUSHL 

CALLS #1,NONSUB_SSE 


; Test negative RELPAG 


NEXT_TEST 


MOVL  #42,W°CURRENT_TC 


AX/VMS Macr 
UETPSY.SRCJUETSSMMOO.MAR; 1 (3) 


"SSEp=1986 84:98:48 


o V04-0 Page 31 


; Check the section data 
; Clean up the mess 

; Skip error report if OK 
; Save error code 

; Print the failure 


: Map to a one page user PRM GBL PO Local memory read only section. 


Set the PO address up to 
the next buffer page 


Check the section data 
Clean up the mess 

Skip error report if OK 
Save error code 

Print the failure 


Skip error report if OK 
Save error code 
Print the failure 


<c 
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80 DD OF PUSH Ae 
1D2C'CF FB : 1287 CALL #1,W*REG_SAVE 
F 1 SCRMPSC_S INADR = INADDRESS,=- 
F 1 FLAGS = #SECSM GBL ! SECSM_EXPREG,- 
F 1 CHAN = SECFABFFABSL _5TV,= 
F 1 GSDNAM = GSD_LOGNAM,- 
F 129 RELPAG = #-1 
F 129 FAIL_CHECK SSS_ENDOFFILE 
payree’e 8F DD OF PUSHL | te ENDOFFILE 
1D36'CF 01 FB F CALLS tf »W*™REG_CHECK 
Hb eRe 
FSD 1 36 : Test RELPAG too Large 
F5D 1297 ; 
rep 1999 
OFS 1300 NEXT_TEST 
OF5D STP43 
0006'CF se + Ore sot an W*CURRENT_TC 
1D2C'CF 01 FB OF64 CALLS 4 W*REG_ SAVE 
OF69 1301 SCRMPSC_S INADR = [NADDRESS,- 
F691 8 FLAGS = WSECSA. GB |SECSM_ EXPREG, - 
F69 «130 CHAN = SECFABTFABSL 
F691 be GSDNAM = GSD_LOGNAM,-— 
OF69 1305 RELPAG = # ; Only a three page section specifie 
a 1306 FAIL_CHECK SS$_ ENDOPFILE 
00000870 8F DD F8F PUSHL #SS$ EN DOFFILE 
1D36'CF 01 FB OF9S CALLS #1,W"REG_CHECK 
OFOA 1308 
ee ! % : Test the offset definitions and the _G format of the system service. 
ren Haid 
48 45 1 18 NEXT_TEST 
oFaA STP44: 
0006'CF 3 +4 he at Cavett CURRENT, 16 
1D2C'CF 0 FB OFA! CALLS) #1,W*REG_SAVE 
040 8F BB QOFA6 1314 PUSHR mak 4 : Save the register contents 
56 B6'CF DE QFAA 1315 MOVAL CRM ; Save the parameter List address 
04 A6 O8e8:Cr DE OFAF 1 1 MOVAL INADDRESS, CRMPSC$_INADR(R6) : Set the parameters up 
08 A6 61'CF D FBS) 131 MOVAL UTABDRESS CR CRMPSCS$ get? 
Of A6 03 06 FBB 1 tS MOVL PSLS$C cRaPets ACMODE (R6) 
ee et a tC 
14 A6 Ose bE re? ! ? thy he SONAR CRAPSCS. GSDNAM(R6) 
18 “. are 4 43) } § lige AN. TERRPSESORELPAG jpent (ne 
20 A6 . aa : 4 1 5 sy Aas iat ta CHAN(R6) 
8 A6 ¢ D FES 1 $ MOVL #1,CRMP f “VBN(R6) 
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¢f A6 8 4 FE9 1 3 MOVL #0, CRMPSC$_PROT(R6) 
8 D FED 1 MOVL #2,CRMPSCS$_PFC(R6) 
0040 8F BA 49 1 y POPR #*FA<R6> ; Restore register 
FF 1 SCRMPSC_G CRM eh 
FFE 1332 FAIL. CHECK SS$_CREATED ; Check the status 
pgone!9 of DD FFE PUSHL 4 pee CREATED 
1D “ff 1 FB 4 CALLS @#@ »W*REG_CHECK 
7)" F DF 1009 1333 PUSHAL OUTADDRESS ; Check the data 
1ERO'CE 02 FB OTS 4338 CALLS. #2 DATA CHECK 
1018 1 6 SpEtivA.S- [NADR™ = QUTADDRESS ; Clean up 
07 28 e8 1 1 BLBS 3 ,10$ ; Skip error report if OK 
: DD 102A 1 8 PUSHL ; Save error code 
1FIS*CF O11 FB : f ! 73 108 CALLS #1,NONSUB_SSE ; Print the failure 
18 1 1341 SDGBLSC_S GSDNAM = GSDNAM 
07 50 E8 1040 1 ¢g BLBS RO,208 ; Skip error report if OK 
50 DD 1043 134 PUSHL RO ; Save error code 
1F15'CF 01 FB 104 1344 CALLS #1,NONSUB_SSE ; Print the failure 
104A 1345 20S: 
ik 1a 
104A 1348 ; Create a one page PRM GBL read only section in PO. 
rE 
sen 1351 NEXT_TEST 
104A STP45: 
0006' CF ¢p + 136A at 225 CURRENT FE 
1D2C CF of FB 1951 135 CALLS #1,W*REG_SAVE 
0369'CF 0600'CF DE 1056 1 § MOVAL READ_BUF,INADDRESS ; Set buffer address 
036D'CF O7FF'CF DE Ht : 20 CoNapse ae 11, INADDRESS+4 
4 _ 
1986 1356 CHAN = SECFAB+FABSL_STV,- 
1064 1357 GSDNAM = GSDNAM,- 
1064 1358 FLAGS = # ECSM_GBL! SECSM_PERM,~ 
1394 1359 PAScNT z . 7 
1064 1360 RELPAG = ; Create the section 
ieee 1361 FAIL_CHECK sss. CREATED 
00000619 8F DD 1 PUSHL #SS$_CREATED 
1036'CF 1 FB 109 CALLS #1 ,W*REG_CHECK 
036?" F DF 1097 1 6¢ PUSHAL ears ; Push address spec 
FFFFFF7F 8F DD 1098 136 PUSHL #-<<512/4>+41> 3 pues Saget ied data pattern 
1E89'CF 2 FB 10A1 1364 CALLS 2,DATA_CHECK 3; Check t 
1 Ag 1365 $DELTVA_S INADR™= INADDRESS : Leave sorties bul feneee ths mappi 
07 50 «#«©€8 ( 1 96 BLBS RO,10$ ; Check the status return 
0 DD 1088 136 PUSHL ; Push the error code 
1F15°CF 1 FB } 14 ! rt} 108 CALLS #1,NONSUB_SSE ; Report the failure 
O23A'CF O0041°CF DE 10BF 1 % MOVAL MGBLSC,SERV_NAME ; Set the new service name 
10C6 1371 SMGBLSC_S GSDNAK = GSDNAM,- 
10C6 (1 ie = m{NADDRESS ; Remap to the permanent global sect 
— ! 44 137 FAIL me NORM a we ; Check the status 
1D36'CF 8} FB 10€1 CALLS hn UPREG. CHECK 
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O369'CF DF 1066 1 t PUSHAL INADDRESS ; Push the address specifier 
FFFFFFFF 8F DD I0EA 1 PUSHL 3 1 ; Push the data pattern specifier 
1E89'CF 2 FB 1 4) 1 § ALLS 2,DATA_CHECK 3; Check the data 
10F5 137 DELTVA_ g INADR = INADDRESS : Delete the mapping 
07 —E8 1104 1 4 BLBS ; Check the status return 
DD 1107 137 PUSHL . ; Push the error code 
1F15°CF 1 FB 1} 4 ! +t 208 CALLS #1,NONSUB_SSE ; Report the failure 
O23A'CF OO3A'CF DE 11 : 1 ‘ "  MOVAL DGBL S¢ SERV tne ; Set the new service name 
111 1 SDGBLSC_S DAK ; Delete the section 
<a i} ? 1384 FAIL =ENEGK S38 “NORRAL 3 Check the status 
1D36'CF 1 FB 1126 Chee HA ie une. CHECK 
O23A'CF OO33'CF ODE i } i . MOVAL ase SERV _NAME™ ; Set the new service name 
1132 1387: 
i i 3 ; Create a one page temp system global read only section in P1 space. 
1132 1390 :- 
1} 1391 NEXT_TEST 
113 STP46 
0006'CF 3 + i ot #46,W*CURRENT_TC 
1D2C'CF 01 FB Ht: 139 CALLS #1,W*REG_SAVE 
0355'CF 01 19 01 FO 11 E 1 38 INSV #1, #PRVSV_SYSGBL,#1,PRIV_MASK ; Set SYSGBL priv. bit 
0355'CF 01 02 01 FO Wee : be tt aw §" ener he ‘e. *PRIV™ MASK 3; Set SYSNAM priv. bit 
114€ 1396 = PRiv : Get the SYSGBL and SYSNAM priv 
0369'CF 7OO000000'EF DE 1150 1397 MOVAL “170000000 INADBRESS, ; Set a Pl space address 
= enfin sed 1180 i 38 SCRHPSC_S” = | INADA S+INA ADDRESS 
116D 1400 RETADR = OUT ADDR 
116D 1401 CHAN = OPC PABSFABSL _STV,- 
116D 1406 GSDNAM = GSDNAM,- 
116D 140 FLAGS = # ECSM_GBL ! SECSM_SYSGBL ! SECSM_EXPREG, ~ 
116D 1404 dng) | = #2,- 
116D 1405 =# ; Create the section 
1197 1406 FAIL ACHE ss8. CREATED 
ipserce ay PB OYN90 CALLS. Fi WEREG. CHECK 
0361 .F ODF yA 1407 PUSHAL OUTADDRESS ; Push address spec 
rEESEEETF BE PR TIA 1408 CALLS. #2, DATA. CHECK RN sy + Aad ececee 
11B1 1410 SDELTVA_ 4 oR = QUTADDRESS : Leave section but remove the mappi 
07 28 €8 11C0 1411 BLBS ,10$ 3; Check the status return 
0 OD 11¢8 1716 PUSHL ; Push the error code 
1F1S°CF «6©01)0=6 FB 6O19C5)= = 141 CALLS #1,NONSUB_SSE ; Report the failure 
11CA 1414 108: 
nek ide 
1168 1417 ; Create a one page perm system global read only section in PO. 
11CA 1419 :- 
11CA 142 NEXT_TEST 
11CA 
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11CA STP47: 
0006'CF F DO 11CA MOVL #47 ,W*CURRENT_TC 
L 
0 oD 11CF PUSH # 
1D2C'CF 1 FB 110¢ 1621 CALLS #1,W*REG_SAVE 
0369'CF OO'CF DE 1106 14 MOVAL READ_BUF,INADDRESS ; Set buffer address 
O3e8 EE pooner DE 1100 14 i MOVAL READ- BUF +511, INADDRESS+4 
HEE Hees SERS na eee a ss sry 
= a* 
11E4 14 § GSDNAM = GSDNAM,- 7 
11E4 14 FLAGS = #SECSM_GBL!SECSM_PERM! SECS$M_SYSGBL,- 
11E4 14 § PAGCNT = #2,- 
Vee 14 RELPAG = # ; Create the section 
120C 1430 FAIL_CHECK SS$_CREATED 
00000619 a DD 120 PUSHL 7h ee CREATED 
aed," 1 FB 121 CALLS # »W*REG_CHECK 
0 $7" DF 1217 1431 PUSHAL Pat $$ ; Push address spec 
FFFFFF7F 8F OD 1218 14 § PUSHL #-<<512/4>+41> ; Push expected data pattern 
1E89'CF O02 FB 1221 14 CALLS #2,DATA_CHECK ; Check the data 
1 : 1434 $DELTVA_S [NADR™= INADDRESS : Leave section but remove the mappi 
07 28 e8 1 1435 BLBS RO,10$ 3; Check the status return 
0 OD 1238 14 $ PUSHL RO ; Push the error code 
1FIS'CF O11 FB ! ° 12 408 CALLS #1,NONSUB_SSE ; Report the failure 
O23A'CF O061°CF DE 123F 1439 MOVAL MGBLSC,SERV_NAME ; Set the new service name 
1548 1461 TAee SCS OOS SE CEN SYSGBL 
= s* 
1 8 1469 INADR = INADDRESS ; Remap to the permanent global sect 
1265 144 FAIL_CHECK SS$_NORMAL ; Check the status 
gi DD 12635 PUSHL #SS$_NORMAL 
1D36'CF 1 FB 1265 CALLS  #1,W*REG_ CHECK 
QO369'CF DF 126A 1444 PUSHAL INADDRESS ; Push the address specifier 
FFFFFFFF 8F DD 1 $F 1445 PUSH #-1 ; Push the data pattern specifier 
1E89'CF 02 FB 1274 1228 CALLS #2,DATA_CHECK ; Check the data 
1279 144 SDELTVA_S INADR~= INADDRESS : Delete the mapping 
07 50 E8 1288 1448 BLBS RO,208 3; Check the status return 
50 DD 1288 1449 PUSHL ; Push the error code 
1F15°CF OF FB ! Ly 1e29 208 CALLS #1,NONSUB_SSE ; Report the failure 
O23A'CF OO3A'CF DE 1 $3 1936 MOVAL DGBLSC,SERV_NAME ; Set the new service name 
129 145 SDGBLSC_S GSDNAM = GSDNAM,- 
1299 1454 FLAGS = #SECSM_SYSGBL : Delete the section 
12AC 1455 FAIL_CHECK SS$_NORMAL ; Check the status 
oi DD 12AC PUSHL 4 ie NORMAL 
D36'CF 1 FB 1 ag CALLS # »W™REG_CHECK 
O23A'CF OO33'CF ODE : + 1436 MOVAL CRMPSC,SERV_NAME 3; Set the new service name 
s@ 
12BA 1428 3 
12BA 1459 ; PFNMAP tests 
12BA 1460 ; 
! a 129) ; Create a one page temp local memory PO PFNMAP section 
12BA 1208 3 
} + 1464 NEXT_TEST 
12BA STP48: 
0006 'CF 30 DO 12BA MOVL #48, ,W*CURRENT_TC 
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VAX/VMS_UETP SYSTEM SERVICE TEST 16-SEP-1984 AX/VMS Macro : 
vets ~ CRMPSC TESTS §-§ ets 8 9 % UETPSY.SR RE) UETS +e MnO. MAR: 1 4) 
H # 
1D2C'CF 89 eB rai 1465 Chet i, W*REG_SAVE 
C 
. Wi, pry MASK 3 Set PFNMAP bit 
BEE on tg RE 1) ay crap sewue-acrivmace ft pea bi 
32 EF 8 1 FO 1204 14 NSV #PRVSV CMEXEC.#1.PRIV -MASK aes sere bit 
we Neca tt 1208 1289 UB 8 BFLG fe : Get the PENMAP, PSWAPM and 
12DB 1470 RVADR = = aL mask : GhexeC® rivilege 
SHSSEF BREE BERET RR MOR cs | 
ponte poi 7 12FA 1258 LCKPAG_S pene = INADDRESS 3; Keep the target still 
1309 1474 SCMEXEC"S ROUTIN = ; Get the physical address 
0039 = 31 : 18 Joc? 108: 0$ 
00Fs tale 1477 hove. oochréer’ Pub RS ; Set up Process Header Address 
000 Ore es a4 : 22 1299 MOVAL PHDSL POBR (RS) -R3 3 get base resister address 
; Set up v 
| 9900" pF C 1 ° PRYaY wVAB= “TON AYASS. VPN,R2,R1 3 Extract cote hehte dels number 
; $9 at ep : } 12 4 EXT ZV oetESy bin MPTESS PFN,RO,RO : Get the page frame number 
6 133B 1484 CMPL G*MMGSGL _MAXPFN, RO ; Can this be right? 
Sonton er ee 1 43 1485 BGEQU $ : 5! 7" re Pree tongs a SM 
: ad retu 
oe a a Sa a | Eerakat S20 SF. 
1349 1488 128: : ates 
. 4 MOVL RO, VBN ; Save the goo 
ore ROT | lM ta 
04 138) 1498 208: ET 
; BR if the PFN was aquired OK 
oove er cP i 33 1498 BL RHAL Tht a ; Report error message 
mow HP TE Hash SAR ROSPRAMe tt | ship PEN testing 
1362 1498 258: 
. RESS ; Set up INADR 
Osep'cr OGRE CEE He 1300 MOVAL READ™ Burs THO UNADDRESS#+4 
a 1 - 1 84 SCRMPSC_S INKDR INADDRESS, - 
137 1 = WSECSM_ PFNMAP, - 
1370 15 : sacl oN = i e* 
= 
i oe 12 $ FAIL amet K sss. CREATED ; Check the status return 
0619 : DD 1396 PUSHL . S$_CREATED 
poorer FB 139C¢ CA rts »W*REG_CHECK + io Lemuel 
“versie? ‘ DD i AS 13 $ PUSHLE phen : pyen, Cese gercers indicator 
; Check the data 
occas eo hs i BO i SDELTWA =e ERAD RS = HE UADDRESS ; Delete the section 
1 BLBS ~RO,30$ 3; Check the status return 
if 33 : eS : 1 PUSHL RO" ; Push the error cede 
1F15°CF OF FB 1304 1 \§ CALLS #1,NONSUB_SSE ; Report the failure 
13c9 15135 30$: 
13C9 1514 
1 £3 ! 1? i+ 
: 9 1 13 : Create a one page PERM local memory GBL P1 PFNMAP section 
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TSSMMOO0 VAX/VMS_UETP SYSTEM SERVICE TEST 16-SEP-1984 01:09: AX/VMS Macro v04-0 P 7 
vibe CAMPS TESTS Breet e 8s bc :9578 UE PeS eects tt Ol mans1 2% 3) 
1S 188: 
! : 1 } NEXT_TEST 
13¢9 STP49 
0006' CF 0) 44 } cP pov #49 ,W*CURRENT_TC 
1D2C'CF 1 FB } 3) 15 ; CALLS #1,W*REG_SAVE 
0369'CF 7000C000°EF DE 1305 1 ROVAL *x700 , INADDRESS ; Set NADR 
OS6D°CF —70000000°EF DE 1305 13 § ROvAL ‘at 00000, iausparesss van re 
1367 1505 = ADDRESS, - 
13€7 15 § F ree = PSECSMe PFNMAP! SECSM_GBL!SECSM_ EXPREG! SECSM_PERM,- 
13€7 «1 GSDNAM = GSDNAM,- 
13k? 1859 ca 
1411 1530 FAIL. CHECK atte CREATED : Check th tat t 
00000619 BF DD 1411 PUSHL ~ #SS$. CREATED 9 Ge a as i leige 
1D36'CF 1 FB 1417 CA rte #1 »W*™REG_CHECK 
O361°CF DF 141C 1531 PUSHAL OUTADDRESS ; Push address of data 
FFFFFFFF 8F DD 1420 15 § PUSHL #-1 ; Push data pattern indicator 
1E89'CF 02 FB 1426 15 CALLS #2 DATA_CHECK ; Check the data 
1428 1534 SDELTVA S INADR = OUTADDRESS S Belete the section 
07 28 EB 145A 1535 BLBS “Ro, 10$ ; Check the status return 
0 DD 1430 15 § PUSHL ; Push the error code 
1F15°CF 01 FB 1e7t 1 8 108 CALLS #1,NONSUB_SSE ; Report the failure 
O23A'CF OO3A'CF DE 1444 1539 ; MOVAL DGBLSC,SERV my ; Set the new service name 
1448 1540 SDGBL SC $ G GSDNAK = GSDNAM : Delete the section 
145A 1541 L_CHECK SS$_NORMAL 3; Check the status 
01 DD 145A PUSH Nass NORMAL 
1D36'CF 01 FB 145C¢ CALLS #1 ,W*REG_CHECK 
O23A'CF OO33'CF ODE 178) 1346 MOVAL ERMPSC, SERV. NAME~ ; Set the new service name 
1468 1346 2+ 
1368 1346 : Create a one page PERM local memory SYSTEM P1 PFNMAP section 
1468 1548 :- 
146 1549 NEXT_TEST 
146 STP50O: - 
0006'CF 36 4 1298 Hat 270 CURRENT Te 
1D2C "CF 01 FB 179F 1550 CALLS #1,W*REG_SAVE 
0369'CF 70000000 EF DE 1474 1 38 MOVAL Rae » INADDRESS ; Set up INADR 
036D'CF 70000000 ‘EF DE 1470 1 26 MOVAL ers 4443 jal 
12 6 i 3 wt SRETADR ADDRESS, - 
1486 1555 = = BSECSR. PFNMAP! SECSM_ SYSGBL ! SECSM_EXPREG! SECSM_PERM! SECSM_G 
1486 155 GSDNAR = 6SD 
14 138% yew = V we 
14 1 3 PAGCNT = # 
1480 155 FAIL =ChEck SS$_ CREATED ; Check the status return 
00000619 8F DD 148 PUSHL #SS$_CREATED 
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p SYSTEM SERVICE TEST 
CALLS _#1,W*REG_CHECK 
neh gy Mores 
CALL 2 DATA. CHECK 
DEL TVA. EWADR™ = OUTADDRESS 
BLBS e 
PUSHL R 
CALLS #1,NONSUB_SSE 
MOVAL  DGBLSC. SERV NAME 
SDGBLSC_S GSDNAM 
FLAGS = ASECSM. SYSGBL 
FAIL ~cwece S88, NORM AL 


#SS$ NORM 
CALLS #1,W*REG_ CHECK 


= 
Oo 
bad 


SNA AAAAAA AAO 
Ww "DOONAN Wn O 


> 4 2 > —) 2 4) 4 


NO_PFN_TEST: 
MOVAL CRMPSC,SERV_NAME 


NNN 


"BS 19be ba:S0s%8 


AX/VM o V04-0 P 3 
UETPSY.S Bae aCe YSSmMOO.MAR: 1 _ if 


Push address of dat 

Push data gorsorn jadicator 
Check the 

Delete the Seetten 

Check the status return 
Push the error code 

Report the failure 


Pete Fe Se Ge Se Ge 


Set the new service name 


Delete the section 
Check the status 


Pete 


; Set the new service name 
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Ve us800 MGBLSC TESTS eet 9 8) 93:93 UE TPSY. SRE IGE TSSMMOO.MAR: 1 . (4) Vi 
1 1577 -SBTTL MGBLSC TESTS 
1808 1899 3° 
8 p $ SMGBLSC tests 
1508 1 ¢ : Few steps exist in this section because the ayepen code to create and map 
150B 1 3; a section is the same code used for S$MGBLSC. Only the MGBLSC unique parts 
: ; i ¢ 3 are tested. 
8 $ > Test simplest case 
1 1 8 : Create the simplest section, One page, user, Senporery. PO, global, local memory, 
150B 1 ; read only section. This will be used as a target section to map to by the 
13 B 15 , 3; SMGBLSC. 
1508 133 3 
139836 
1308 1892 NEXT_TEST 
1508 STP51: 
0006" CF 33 + 139 ort #51,W*CURRENT_TC 
1D2c'cF O01 FB 13! 1595 CALLS #1,W*REG_SAVE 
O369'CF O600°CF DE 1517 1396 MOVAL READ_BUF,INADDRESS ; Set up inadr 
O36D'CF O800'CF ODE 1316 159 MOVAL READ _BUF+512, INADDRESS+4 
1 1598 SCRMPSC_S INADR = INADDRESS,- 
1525 1599 CHAN = SECFAB+FABSL_STV,- 
15 1690 GSDNAM= GSDNAM,- 
15 1601 FLAGS = #SECS$M_GBL ; Create a target section 
1547 1602 FAIL_CHECK SS$_CREATED 
00000619 34 DD 1547 PUSHL #SS$_CREATED 
1D36'CF 1 FB 1540 CALLS  #1,W*REG_CHECK 
erect oe Bh lead SRE pusaat ADEs 
ae DE 135 1808 mOVAL UA‘MODET ee Bay 74 wig 
an Boni ce —E 1568 1809 MOVAL MGBLSC,SERV_NAME : Set the service name 
0800 8F 00 seal PO C 136f 1608 Move #0,READ_BUFT,#0,4512%4,READ_BUF 1 ; Init the second read buffer 
89 DD 1578 1609 PUSHL #0 ; Push the argument 
1D2C "CF 1 FB 157D 1610 CALLS #1,REG SAVE ; Save the register contents 
0369'CF 9 DE 15 $ 1611 MOVAL READ BUF T. JNADDRESS ; Set the PO address up 
O36D'CF 1000'CF ODE 138 1616 MOVAL READ’ BUF 14512, INADDRESS+4 
1 161 SMGBLSC_S GSDNAM = GSDNAM,- 
1590 1614 INADR = INADDRESS 
13, 1615 FAIL_CHECK SS$_NORMAL 
4 DD 15A9 PUSHL a3s8 NORMAL 
1D36'CF '- fe % = CALLS #1,W*REG_CHECK 
rite Be Bb HiBe J6ih Pusu TRApOESs 
1E89'CF 2 FB 158A 1933 CALLS #2,DATA_CHECK ; Check the section data 
15BF 161 SDELTVA_S [NADR™= INADDRESS : Clean up 
07 4 €8 1 ce 16 9 BLBS RO,10$ ; Skip error report if OK 
5 DD 15D 19 PUSHL ; Save error code 
1F15'CF a. ae ry 1 § CALLS #1,NONSUB_SSE ; Print the failure 
15D8 1625 10$: 
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we 


pP 

S$ 

16 

153 

t ; jest mapping to a non-existant global section. 
1680 

16 


—OOeanc 


NEXT_TEST 


STP52: 
O006'CF 34 2 


1D2C'CF 
O34A'DF 4C BF 90 


oerrer’s F DD 
1D36'CF ' 
O34A'DF 53 BF 90 


MOVL  #52,W*CURRENT_TC 
PUSHL — #0 
CALLS #1,W*REG_SAVE 


MOVB #*A/L/,@<GSDNAM+4> ; Futs up the name 
SMGBLSC_S GSDNAM = GSDNAM,- 
INADR = INADDRESS 
FAIL_CHECK SS$_NOSUCHSEC 
PUSHL ~ #SS$_NOSUCHSEC 
CALLS #1,W"REG CHECK 
MOVB = #*A/S/, @<GSDNAM+2> : Fix up the name 


DO 
DD 
FB 


—— 
PAA Oo 


OQooommmnmnovvoVvVvV7Vv7070070C0C0”"€7 
One wr 


ODNIWMVIDS DOPOOOOAOOAD TD DOOCCOD OF LLL LLLLL LEM OWW?P Pb & EMS WM coawaecvcecece 


Test match control > SECSK_MATLEQ 


Set et ee ee et te WWIWAIAW 


— a 
PARA CAOA 
MEWN-OOCOon 


NEXT_TEST 


0006'CF 35 
1D2C'CF 1 


os a ss ss 5 a ss 


MOVL #53, W“CURRENT_TC 
CALLS #1,W*REG_SAVE 
SMGBLSC_S_INADR = INADDRESS,- 
GSDNAM = GSDNAM, - 
IDENT = AN_ILLEGAL_IDENT 
FAIL CHECK SS$_IVSECIDCTL 


SHL = #SS$_IVSECIDCTL 
CALLS #1,W*REG_CHECK 


dO 
DD 
FB 


s@ 


; Test match control SECSK_MATEQU 


—) a oe 
POAAACAOO 
Th hb dh eb bed beh hl 


ONO WN 


NEXT_TEST 


STPS4: 
MOVL #54,W*CURRENT_TC 


PUSH 
CALLS #1,W*REG_SAVE 


MOVAL DGBLSC,SERV_NAME ; Set the service name 
SDGBLSC_S GSDNAM = GSDNAM ; Delete old global section 


0006 ' CF 09 
DD 


1D2C°CF 
O23A'CF  OO3SA'CF ODE 


ee ee ee ed ed aed td td od ot = = = Ss — 4 — 4) —) — 9 — 9 bd 2 2 2 sd A 2 2 2 SS = 2 Ss 2 a 


WAIANAE RRR RE ERES 


<c 


K 12 
VE TSSMMOO0 VAX/VMS UETP SYSTEM SERVICE test * 1 = 4 9: AX/VMS V04- 
VB42000 MGBLSC TESTS greEe bbe bassoste ORT PSY. carioeyeemmoo.mar:1 2% 41, 
1 op i $ 1662 FAIL =Cheee $58 -NSSS_NOR MAL 
9 oP aa DE i8er 1663 MOVAL READ HS that Ap me on s inad 
: t 
Sseo'cr Choo DE 1676 1684 HOVAL Berea INADDRESS*« phe BP rn 
= 
07 28 E8 168C 16 § BLBS ,10$ ; Skip error report if OK 
DD 168F a USHL F ; Save error code 
1FIS'CE O1 FB 193) 1? 8 108: CALLS #1,NONSUB_SSE 3; Print the failure 
0342'°CF é 080800 9 BF pO 1896 1890 , MOVL Pee ge sf FP AN_IDENT+4 3: Set up an ident of MSB in 
O23A'CF OO33'CF ODE 44 1971 soknbsc_§ GRAPSE AGk RV ANIME oe 3; Set the service name 
E 
16A6 1898 SECFABSPABSL STV,- 
19A9 1674 ESDNAMS SESNAR 
16A6 1675 IDENT = AN_IDENT 
16A6 1978 FLAGS = #SECS$M_ G&L ; Create a target section with 
16CA 167 ; an ident specified 
16CA 1678 FAIL_CHECK SS$_CREATED 
eemReT? Bh aR ESA Bt FE eReEMTx 
ect e H 1y Up funn ables 
1E89'CF 2 FB 16DF 1681 CALLS #2,DATA_CHECK 3 Check th ti dat 
O2sarce  GO4I"CF DE 1664 1689 MOVAL _MGBLSC, SERV_NAME S Set the service name. 
0369'CF OE00'CF DE 16€E 168 MOVAL READ -BuFT DRESS 3; Set the PO address up 
036D'CF 1000° CF DE 16F 1684 _ READ BUF 1#512, INADDRESS+4 
O33E'CF 01 DO 16F9 1685 OVL PSECSK MATEQU,AN_IDENT : Set the match criteria 
16FE 1686 SRGBLSC x GSDNAA = GSDNAM,- 
16FE 1687 IDENT = AN_IDENT,=- 
16Fe 1688 INADR = INADDRESS 
01 - ab 1689 FAIL Us -NASSS.NO an 
1D36'CF 01 FB 1718 LLS #i,W W*REG_ mete ck 
FFFFFFFE GE pb 174 teo% PUSHL soles 
1E89'CF O02 FB 172A 1036 CALLS 2,DATA_CHECK ; Check the section data 
172F 169 SDELTVA §° INADR™ = INADDRESS : Clean up 
07 50 E8 1735E 1694 BLBS “Ro. 208 ; Skip error report if OK 
50 DD 1741 1695 PUSHL ; Save error code 
1F15°CF 01 FB 1743 1998 CALLS #1,NONSUB_SSE ; Print the failure 
1748 1697 20S: 
174 1638 
1728 1900 3° 
VN 1? 1 : Test match control SECSK_MATEQL failure to map cause of minor ident mismatch. 
abe 
Vt 1705 NEXT_TEST 
174 STP55 
0006 ' CF a0 re 1748 nat by #55,W*CURRENT_TC 
1D2C°CF 1 FB eof 17 CALLS an. W*REG_SAVE 
0342°CF 08040000 8F 00 1484 1509 MOVL #*X8040000,AN_IDENT+4 ; Set up an ident with minor mismatc 
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175D 17 SMGBLSC_S jwaee = INADDRESS,- 
175D 17 GSDNAM = GSDNAM,<- 
5 15 FAIL. veg SNOSUERSEE 
i? 000978 : DD 177 te NOSUCHSEC 
iD36'CF FB 177 #1 ,W*REG_CHECK 
17 ay 
oes pif 
Vf Har ; Test match control SECSK_MATEQL failure to map cause of major ident mismatch. 
17 1919 3° 
17 1018 
17 171 NEXT_TEST 
17 
17 STP56: 
0006'CF 38 »bDO0 17 MOVL #56,W*CURRENT_TC 
00 DD 1788 PUSHL 
1D2C'CF 01 FB 178 1720 CALLS #1,W*REG_SAVE 
0342°CF 04080000 8F DO 178F 1721 MOVL #*X4080000,AN_IDENT+4 ; Set up an ident with major 
1738 17 ¢ ; ident less 
1798 17 SMGBLSC_S jones = JNADDRESS,- 
1798 1724 GSDNAM = GSDNAM,- 
1798 1725 ID ENT AN_ IDENT 
1783 1726 FAIL. cHece SS$_ NOSU CHSEC 
000978 8F DD 17B PUSHL #SS$_NOSUCHSEC 
1036'CF FB 1789 CALLS #1 »W*REG_ CHECK 
17BE 1727 
17BE 1728 ;+ 
17BE 1729 ; 
17Be Hf 9 ; Test match control SECSK_MATLEQ map with minor ident <. 
17BE 17 § 3° 
17BE 17 
17BE 1734 NEXT_TEST 
17BE 
17BE STP57: 
0006'CF 39 bo 178 MOVL #57,W*CURRENT_TC 
DD 17C PUSHL 
1D2C CF 1 FB 443 1735 CALLS #1,W*REG_SAVE 
O33E'CF O02 DO I7CA 17 $ MOVL #SECSK_MATLEQ,AN_IDENT ; Set the match criteria 
0342'CF O803FFFF 8F DO I17CF 17 MOVL #*X805FFFF,AN_ “1DENT+4 ; Set up an ident with minor 
1708 17 3 : ident less 
17D 17 SMGBLSC 5, —_ = _—,- 
1708 1740 = GSDNAM 
17D8 1741 ot DENT A... IDENT 
17F3 1742 AIL_CHECK s5$_NO 
3 DD 17F ns “sss 
1D36'CF 1 FB 17F rte é sUrRee CHECK 
O369'CF DF I7FA 1743 PUSHAL INADDRESS 
FFFFFFFF Be DD I7FE 1744 PUSH ro 1 
1E89°CF 2 FB 1804 1745 CALLS 2 para CHECK ; Check the section data 
1 H 1766 SDELTVA.S S, ENADRE = INADDRESS : Clean up 
07 28 e8 1 174 BLBS ; Skip error report if OK 
DD 1818 1748 PUSHL ; Save error code 


<c 


1FIS*CF = 01 


0006' CF ns 
12c'cr 01 
08040000 8F 


0006°CF 


wt | 


SlSe 
rT. HHP AH 


VAX/V 
MGBLS 


FB 


dO 
DD 
FB 


dO 


tom nOoOon"S 
@Oooem wo "wo 


m1 
SYSTEM SERVICE TEST 


TP 
TS 
1 

1? 
1% 
17 
17 
17 
17 
17 
17 


— sd 
SANS 
PAOAACAOOu 
USWwr—-O” 


IDENT 
FAIL ee ee NORM 


#SS$_NORMAL 
CALLS #1,W*REG_CHECK 
PUSHAL INADDRESS 
PUSHL @=- 


ee ee ee ee ee ee ee ee ee ey 
SQN 
ON NNN NNO 
SOOWONAOUES WN "ODO ONO 


sat 
USE 
GBL 


>Prroo 


a dt td tt = 
SVN 


~~ 000000900 00 00 00 C0 CD 


WO OCONOufSwr— 


wT SOO 


FAIL. aust 6 $$ 


C 


"Pep 19R6 bassosta 


#1 ,NONSUB_SSE 


#58, W*CURRENT_TC 


#1 ,W*REG_SAVE 


#*°X8040000,AN_IDENT+4 
SMGBLSC_S eye: a INADDRESS , ~ 
GSDN ~ = 6S 


= AN IDENT 
MAC 


#2,DATA_CHECK 

_S_ INADR7= INADDRESS 
R ,10$ 

#1 ,NONSUB_SSE 


; Test the offset definitions and the -& format 


#59, W*CURRENT_TC 
,, #1. W*REG_SAVE 


TM 
sts. tees) 


gays NORMAL 


MGBLSC$_INADR(R6 
MGBLSCS$_RETADR( 
R,MGBLSCS_ACMODE 


aSECEN FLAGS (RO) 
GSONAR -ROBLSCS 
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; Print the failure 


: ; Test metch control SECSK_MATLEQ map with minor ident =. 


Set up an ident with minor 
ident equal 


Check the section data 
Clean up 

Skip error report if OK 
Save error code 

Print the failure 


of the system service. 


; Save the register contents 
; Save the parameter List address 
3; Set the parameters up 


; Restore register 
; Check the status 
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MGBLSC 1eEts aes ty 8} H af UETPSY.S Hath ETSSMMOO.MAR; 1 es (4) 
1 DD 18C7 PUSH #Sss Ree Ch 
wot HIB aru, usu. bbe dt meee age cdl 
Se ee a <M 
18DD 1737 SDELIVA.S oR AORTS INADDRESS : Clean up 
07 § E8 18EC 1 38 BLBS RO,10$ 3 Skip. error report if OK 
DD 18EF 179 PUSHL R 3; Save error code 
1F15°CF 1 FB ! 4 ! 108: CALLS #1,NONSUB_SSE 3; Print the failure 
1are 1 5 ; 
i 1804 3° 
: fe } 2 Create a Supervisor section 
IE 1B 
} re 1809 NEXT_TEST 
18F6 STP60: 
0006'CF ae + : 4 ath #60,W*CURRENT_TC 
1D2C'CF 01 FB 18% 1810 CALLS #1,W*REG_SAVE 
OOOA'CF O1EB'CF ODE 1903 i MOVAL SM,MODE ; Set the mode ID address 
ie 
1909 1312 3 ; Create a Executive section 
1909 1 16 $ 
1383 1B 
P44 1818 NEXT_TEST 
1909 STP61 
0006° CF 3 +4 444 te 36" .UICURRENT TC 
1D2C°CF 01 FB Hf 1820 CALLS #1,W*REG_SAVE 
OOOA'CF O1FS'CF ODE aE: 13 1 MOVAL EM,MODE ; Set the mode ID address 
Ite RSE + 
191C 1825 ; Create a Kernal section 
191C 1 § 3 
IE ABE 
+ 44 1 § NEXT_TEST 
191C STP62 
0006 'CF af + a met 662 .U°CURRENT TC 
1D2C "CF 8 FB 1? ; 1830 CALLS #1,W*REG_SAVE 
OO0A' CF 0206 1 - FF 1831 MOVAL KM mope ; Set the mode ID address 
023A CF A'CE DE 192F 1 é MOVAL DGBLSC, SERV_NAME ; Set the service name 
1936 1 SDGBLSC_S GSONAR = GSDNAM : Clean up the mess 


<cC 


a 44 SYSTEM SERVICE TEST _" if 138t Hae Fe FY AX/VMS Macro veo. mans 1 Page 45 Ue 


MGBLSC T UETPSY.SRCJUETSS (4) 
194 1834 FAIL ate = ete ; Check the status 
DD 13 PUSH ae NORMAL 
FB 194 CALLS #1,W*REG_ CHECK 
DE 1306 1835 MOVAL READ _BUF, NADDRESS ; Set up inadr 
DE 1 2 1 § BOVAL READ BUF +512, INADDRESS+4 
195A 1 SDELTVA_S INADR = INA 
—E8 1969 1 BLBS RO,10 ; Skip error report if OK 
DD 196C 1 PUSHL R ; Save error code 
FB 1 § 184 CALLS #1,NONSUB_SSE ; Print the failure 
19 1841 10S: 


C 13 
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veils UPDSEC TESTS Mer eee lees basket FORSNES SRE SC Het ROll mans Paee $8, 
1973 1843 .SBTTL UPDSEC TESTS 
ih HEE 
197 46 : SUPDSEC tests 
1973 1 48 : Test simplest case SS$_NOTMODIFIED 
1973 1849 ; 
ire Be 
197 1852 NEXT_TEST 
197 STP63 
0006'CF i pO 19 MOVE #63, W*CURRENT_TC 
1D2C'CF 1 192A vase CALLS #1,W*REG_SAVE 
00 As ce O1pe ce DE 197F 1854 MOVAL UM,MODE : Set the mode 
8 A‘CF OO335'CF DE 1986 1855 MOVAL CRMPSC,SERV_NAME ; Set the service name 
69'CF O600°CF DE 198D 1 36 MOVAL READ BUF , INADDRES $ : Set the map Limits 
OS URC OE Te THe) Hedtbac Same ce gaaeeungess 
= 
1998 1839 sth = #SECSM_WRT,- 
199B 1860 Aga = INADDRESS,- 
1998 1861 RETADR = 2 0 TADDRESS, - 
19BF 1808 FAIL_CHECK SS$_ CREATED 
ieseree Or PB loRs CALS PL UPREE CHECK 
O23A'CF OO48'CF DE 196A 1864 MOVAL UPDSEC,SERV_NAME~ : Set the service name 
1901 1865 SUPDSEC_S INADR = INADDRESS,- 
1901 1866 RETA DR . 0 TADDRESS, - 
19E8 1868 FAIL_CHECK SS -NOTHODIF LED 
00000659 8F DD 1968 PUSHL ~ #SS$_NOTMODIFIED 
1D36'CF O01 FB 19€ CALLS #1,W*REG_CHECK 
19F8 1890 5 
19F 1871 : Test EFN with page modification 
RIE 
19F 1874 ° NEXT_TEST 
19F STP64: 
0006'CF 00000040 if v0 1963 mOVL #64, W*CURRENT_TC 
1D2C'CF 1 FB 19F — CALLS #1,W*REG_SAVE 
O800'CF D4 1A 1 8 CLRL ee BUF + At ; Modify a page 
1A07 187 SUPDSEC_S INADR = INADDRESS 
1A07 1 08 RETADR = a\TADDRESS,- 
1A0? 188 he th 
= 
1A07 1 51 $33.40 = UPD_10SB 
: 1A ; 1882 FAIL ~ CHECK sie ar 
1D36'CF 1 FB 1A CAL $$, noRM Check 
2E i 9 1A29 1883 BLBC tes ; Skip wait if failure occured 


50 = O2AE "CF 


1036'CF 81 

07 50 

TFIS'CR 601 
O23A°CF  0033'CF 


0006'CF 00000041 8F 
1D2C ‘CF 1 
O800'CF FFFFFF7F 8F 


1 

1036'CF 1 
03 50 

O0A2 

0098 


00 


oOo-—-oco Co "S? 
DO ™Wwumwo 


dO 
DD 
FB 


dO 


31 


OFFC 


1 
SYSTEM SERVICE TEST . 


wm 
“44 


OVUITN OUIW- 2 SS SW WP VO" OF PUIO MC 
—> —) —) ss > a ss 4 2 
[> Te -Te .Te «Te te Te Je te te Te -] 
wooowvowowowvowvowwe 
NOUSWR—OOOonN 


OOWOCOODOAOAOOIUIUVIUIIE ANNI 


a a 
wowowowuoowowowowvowe 


>>r>rrrrrrrrrrrrr rr Pr PY 
OGOoooooococoono 


o 


SAID DW CUNO NUIVIPAAAAOAOAS LLNS LHL LLL LLL LEH 
WONOUS WIN —OOMW 


7 I$$3$$333333s- 


a dd a 
wowowowowowowowowovono 
Qo 
COWUONAOUS WMO 


a a a a ed dd ad OS 
NHN HMMM MOo OOM 


@owww>r>r>rr>rrrrr,rrrrr>r 


a 
wwowowowowowovon9 


OONOUS Ww 


oooo 


N 

‘te Hite $$-NO 
$ 

RR = INADDRESS 
0 


»NONSUB_SSE 


R 
S 
’ 
I 
£ 
E 
$ 
1 
R 
+ 
IL 
aFA 


; Test ASTADR and ASTPRM arguments 


NEXT_TEST 


MOVL #65, W*CURRENT.TC 


PUSHL 


CALLS #1,W°REG_SAVE 
#<-1 ie READ. BUF +512 
INADDRESS,- 


SSETAST 5 ENBFLG 
SUPDSEC_S INADR 
RETADR 


UPDFLG 
EFN 


ASTADR = 20$,- 
ASTRA 


[O58 UP6. 10SB 
FAIL_CHECK SS 
PUSHL is ss NORMAL 


eres 
’ 
#1,- 


ap Sunn annne 


SHIBER_S 
BRW 50$ 


. WORD ge 8 «8S DA RS RO RT ROAD ATO .BITe 


PUSHL 


SSEP=19bs b4:86:18 


URE CHECK 


CALLS oy WEREG. CHECK 
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UETPSY.SRCJUETSSMMOO.MAR; 1 (5) Vv 


Page 47 


Wait for 1/0 complete 
Get the return status code 


Unmap the section 

Skip error report if OK 
Save error code 

Print the failure 


Set the service name 


; Remap the section 


Set the service name 
Check for the modification 


Push the failure message 
And print it 


Modify a page 
Disable AST*’s for error checking 


OK checking 4 dqne go ahead and AST 
Skip to wait no failure occured 
Else skip the’ sett 


Wait for AST 
Skip over AST routine 


Push a dummy parameter 


AX/VM P SYSTEM SERV TEST 16-SEP-1984 01:09: AX/VMS Macro V04-0 Page 4 
VbuS000-— UPDSEC TESTS en SERVICE TE B7SEb-]obe Oassorie LuctPsy.eacioeyssmmoo.man;1  °%° 48, 
. A #1,R AV 3; Save the registers 
ee ay 4 f ig ? : EabLS CAPS Ow . 3; Did Pe parsacter get here? 
OE 13 18 1 BEQL ; BR if yes 
O46 A DD 1814 1 PUSHL al ; Push received 
0 DD 1817 1934 PUSHL # ; Push expected 
g2e9"tt DF 1819 1935 PUSHAL DATA ; Push string address 
1D9A'CF 3 FB 13) 13 § 30s CALLS #3,PRINT_FAIL ; Report the failure 
50 O2AE'CF 3C 18 19 3 MOVZWL UPD 1958 RO ; Get the return status code 
1Be? 19 FAIL_CHECK SS$_NORMAL 
4 DD 1827 PUSHL #SS$_NORMAL 
1D36'CF 1 FB 1B29 CALLS #1,W*"REG_ CHECK 
1BeE 1940 SDELTVA_S INADR = [NADDRESS ; Unmap the section 
07 50 E€8 1B83D 1941 BLBS RO,40$ i; Skip error report if OK 
DD 184 1308 PUSHL ; Save error code 
1F15'CF OF FB 18% Ie? 408 CALLS #1,NONSUB_SSE ; Print the failure 
‘ , 4 MOVA RMPSC ,SERV_NAME ; Set the service name 
ee as eee Bee 1346 SCRMPSC_§ CHAN = SECFAB+FABSL_STV,- ; Remap the section 
1B4E 194 FLAGS = #SECSM_WRT,- 
1B4E 1948 INADR = INADDRESS,- 
1B4 1949 PAGCNT = #3 
1870 1950 FAIL_CHECK SS$_CREATED 
2 ene eh 
O23A'CF 48°CF DE 18 V ¥ i Se e service a 
0369'CF DF 1889 1326 PUSHAL INADDRESS ; Check the data 
FFFFFFFF 8F DD 1886 195 PUSHL = 
1E89'CF 02 FB 1B8C 1954 CALLS  #2,DATA_CHECK 
1891 1955 SWAKE_S 3; Carry on 
04 1B9C 13e8 RET 
1B9D 1957 50$: 
1B9D 1989 5 
1B9D 1960 ; Test the offset definitions and the _G format of the system service. 
1B9D 1961 ; 
1B9D 1308 3° 
1B9D 196 
44 1964 NEXT_TEST 
189D STP66: , 
0006 'CF 00000042 f + 1870 port ll CURRENT_TC 
1D2C "CF 1 FB ibaa CALLS) #1,W*REG_SAVE 
40 8F BB BAD 1965 PUSHR #*M<R6> ; Save the register contents 
ora er DE 1881 1398 MOVAL yresees R6 ; goxe the rok: List address 
' @ $ (e) 
_— “he Abd AF DE bor 196 HOVAL INAODRESS ,UPDSECS$_INADR(R6) 3; Set the parameters up 
08 A6 b3er" F DE 1BC5 19 MOVAL QUTADDRESS UPDSECS_RETADR(R6) 
A6 03 DO 18CB 1970 MOVL SL$C_USER,UPDSECS_ACMODE (R6) 
10 A 1 D 1BCF 1971 MOVL #1, UPDSEC sgtettye 
14 A 1 OD 1803 197 MOVL  #EFNT,UPDSECS_EFN(RO) 
18 A6 AE‘CF DE 18D 197 MOVAL is _16SB UPDSEC$_I0SB(R6) 
1C A ‘CF §=DE 1BDD 1974 MOVAL 0 UPDSECS_ASTADR(R6) 
20 Ab 8000 6 4 8F DO 1BE3 1975 MOVL #106, UPDSECS_ASTPRM(R6) 
040 8F BA 1BEB 1308 POPR “m< ; Restore register 7 
1BEF 197 SSETAST_S ENBFLG = #0 ; Disable AST's for fail check 


U {Sgnno0 
v04-000 


0006'CF 


1036'CF t 


ed * Pad 
00000064 8F 0 


4 

04 
00009933 

9 
1D9A' CF 


07 
1F15'CF 


oO 


5 
5 
0 


00000043 a 
1D2C°CF 1 
OOOA'CF O1E8'CF 


VAX/VMS UETP 5 po] 4 9: 
UPpsee Thats "oS een 13be bu:9oi%8 
1BF8 1 SUPDSEC_G UPDSECG 
1¢ ; 1358 FAIL_CHECK gst NG 
DD 1¢ PUSHL sss NORMAL 
FB 1C CALLS _#1,W®REG_CHECK 
1€0B 1980 SSETAST_S ENBELG ="#1 
§8 1¢11 19 BLBS Ro 10$ 
17 38 tos, BM 
1C17 1984 $HIBER_S 
31 1¢ F 19 5 pe BRW 508 
om iH th ae, 
FB C25 «19 § CALLS #1,REG_SAVE 
D1 1C2A 1990 CMPL = & (AP) , #100 
13 «1¢ é 1991 BEQL 30S 
bd iC 1998 PUSHL  4(AP) 
mee ta ett PUSHAL DATA 
FB 1c4) 1995 os CALLS #3,PRINT_FAIL 
EB 1(46 1999 " - BLBS_ ~—s«UPD_10SB8,40$ 
DD 1€48 1998 PUSHL UPD~10SB 
OF ies) 2000 buena StATOS 
FB C59 001 re CALLS #3,PRINT_FAIL 
1C5A $08 " - $WAKE_S 
OTE BER og, 
C66 006 "- $DELTVA_S_INADR = INADDRESS 
fF ice $008 piem ORO 
FB IC7A $09 CALLS #1,NONSUB_SSE 
1C7F 2010 60S: 
1C7F 2011 
Ie 38 
1C7F 14 : Create a Supervisor section 
1C7F 15 ; 
IgE BB 
ICPE 18 NEXT_TEST 
1C7F STP67 
D0 43 MOVE 467,W*CURRENT_TC 
FB I¢ A ; CALLS #1,W*REG_SAVE 
DE CBF ; MOVAL SM,MODE 
1¢ : 1 
Ie 85e 
1¢9 4 ; Create a Executive section 
109 5: 
169 6 t- 
109 
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Check the status 


Hes gre checking go ahead and AST 
service request OK... 
pet) B skip the 1/0 wait 


Wait for I/0 complete 
Skip the AST routine 


AST entry point for SUPDSEC 
Push a dummy argument 

Save the register contents 
Correct AST parmeter? 

BR if OK 


Push received 
Push expected 


; Push string address 


Report the failure 


Check I0 status returned 
Push received 

Push expected 

Push string address 
Report the failure 


Exit the HIBER 


Delete the address apace 
Skip error report if 0 
Save error code 

Print the failure 


; Set the mode ID address 


a —— 


<c 
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STP69: 
0006'CF 00000045 8F 


1D2c*cr 01 
QOOA'CF O206'CF ODE 


MOVL #69,W*CURRENT_TC 
PUSHL # 
CALLS #1,W*REG_SAVE 
MOVAL KM,MODE ; Set the mode ID address 


dO 
DD 
FB 


EC T -SEP=1984 Y.S RE) UETSS 80. MAR; 1 
if 2028 NEXT_TEST 

1¢ STP68: 

O006'CF 00000044 BF 00 IC MOVL #68 ,W*CURRENT_TC 
DD 1C9F PUSHL # 
1D2C'CF FB eA) CALLS #1,W*REG_SAVE 
OQOOA'CF O1FS'CF ODE 1EAG MOVAL EM,MODE ; Set the mode ID address 

1CAD i+ 

1CAD ; 

1CAD Qi ; Create a Kernal section 

1CAD : 

1CAD § ‘* 

1CAD 

1CAD 8 NEXT_TEST 

1CAD 

1CAD 

1CAD 

1588 

1¢B 

1CBD 

1CBD 

1€C4 


rorore 
Few 
—-oO”o 


0006'CF 00000046 
1D2C'CF 


8F 
00 
01 
QOOA' CF 1DC'CF 
O23A'CF BO8A" CF 


8 

0 

¢ 

C 

0 
00000000" 6 
O27A'CF 01 rc . 
0 


00000000 ' GF 


LSC 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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1 SDGBLSC tests 


48 Few cases exist in this section because most of 


: the SCRMPSC section of this program. 
! Test SS$_NOSUCHSEC 


NEXT_TEST 
STP70 
MOVL  #70,W*CURRENT_TC 
PUSHL @# 
: CALLS #1,W*REG_SAVE 
3$ ROVAL UM, MODE ; 
58 MOV DGBLSC, SERV_NAME ; 
5 SD CBr SC $ GSDNAM = Vesp LOGNAM : 
60 FAIL CHECK Ss$_ NOSUCH HSEC ; 
#sss ,NOSUCHSEC 
CALLS »W*REG_CHECK 
2061 TEST_END 
PUSHL W*TMD_ADDR 
PUSHL W*TMN-ADDR 
PUSHL # 
PUSHL W*MOD_MSG_CODE 
CALLS #$$117G*LBS$SIGN 
INSV #1, #STS$V_INHIB_ 
PUSHL W*MOD_MSG~ CODE 
CALLS #1,G*SYSSEXIT 
2062 SEXIT_S 


SSEp=198¢ O4:86:18 Werpsy.s 


43 :* -SBTTL DGBLSC TESTS 


0 V04- P 1 
sae sGevesmmoo.man:1 2% 24) 


the cases are tested in 


Set the mode 

Set the service name 

Try a non-existent section 
Check failure code 


AL 
MSG,#1,W*MOD_MSG_CODE 


$s 


NMWYNMNKNNNNNKHKVNNuNuoNuN1N 
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EE RAAT 0” Sten sence rest © HEINEY RARE EOE SetetESaBo.mae °° 


OF 


«WOR “M<R2,R3,R4,R5,R6,R7,RB,RI,R10,R11> 


R3 
O23E'CF 14 AD 28 move #4%10,*K14(FP) .W*REG_SAVE_AREA ; save the registers in the program 


1 f ¢ ses -SBTTL REG_SAVE 

1DeC : : FUNCTIONAL DESCRIPTION: 

1p : ; Subroutine to save R2-R11 in the register save location. 
1DeC : CALLING SEQUENCE: 

1D2C : PUSH é ; save a dummy parameter 
18 : , ; CALLS #1,W*REG_SAVE ; save R2-R11 

1D2C 2073 : INPUT PARAMETERS: 

1° : iS 3 NONE 

1DeC id: : OUTPUT PARAMETERS: 

1d2C “i 3 NONE 

1D2C 4 3 

1p5¢ 5080 ° 

1D2C 1 REG_SAVE: 

1D2C ¢ 

1D 4 

1D 084 


Fon 


U 
$ 
$ 
$ 
$ 
$ 
$ 
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~SBTTL REG_CHECK 


FUNCTIONAL DESCRIPTION: 
Subroutine to test RO & R2-R11 for pro er content after a service 
execution. A snapshot is taken by the REG_SAVE routine at the 
beginning of each step and this routine iS executed after the 
services have been executed. 


CALLING SEQUENCE: 
PUSHL #SS$_XXXXXX 3; push expected RO contents 
CALLS #1,W*REG_CHECK ; execute this routine 


ono 
oO 


1D 
ea 
1D ; 
1D 
1D 9 
1D 9 
1D 9 
1D 94 
1D 95 
1D36 5097 
1D 4 38 INPUT PARAMETERS: 
1 ? 3 expected RO contents on the stack 
1036 18 OUTPUT PARAMETERS: 
1 ? | § possible error messages printed using SPUTMSG 
Bag gigs 
1D 3 1 $ EG_CHECK: - 
50 04 at bt 1 : 198 CHP 4 (AP) ,RO ; is this the right fail code? : 
: br es | 
50 OD 1D 110 PUSHL R 3 push received data s 
04 AC DD 104 111 PUSHL 4(AP) : push expected data P 
214'CF DF 1D4 Mg PUSHAL W*EXP 3 push the string variable s 
1D9A'CF O03 FB 1047 211 CALLS #3,W*PRINT_FAIL 3; print the error meesege P 
O282"CF QO2C°CF OD IDAs 114 MOVAL w*fEsT_MOD FAIL,W*TMD_ADDR ; set failure message address C 
O27A'CF O03 O00 O02 F 1035 V3 12s INSV #ERROR,#O,73,W*MOD_MSG_CODE ; set severity code A 
O23E'CF 14 AD se 29 1D5A 1? : CMP C3 #4210,°X14(FP) ,W°REG_SAVE_AREA  ; check all but RO y 
e r . . 
56 53 ates ell - c3 1992 13 sini #REG_SAVE_AREA,R3,R6 ; calculate the register number HM 
OOOE *CF 56 0 81 1066 121 ADDB #K2 R6,W*REGNUM - = it in the 4 ay 3 
2 8 y 10f% ! ¢ Bitt Rf ; backup to register boundrys 
OOOE'CF DD ID7A 2124 PUSHL W*REGNUM : push register number 
61 DD 107 125 PUSHL (R11) 3; push received data 
63 DD 1D 6 1 $ PUSHL (R3) 3; push expected data 
O268'CF DF 1D 1 PUSHAL W*REG 3; set string pntr param. 
1D9A'CF 04 FB 1086 21 8 CALLS #4,W*PRINT_FAIL ; print the error nessogs 
0282'CF Bg2C' te DE 1D 1 MOVAL wr fest MoD FAIL,W*TMD_ADDR ; set failure message address 
O27A'CF 03 pa, 1 ! 9 208 INSV WERROR, #0 ,93,W*MOD_MSG_CODE 3; set severity code 
1D — 
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1B9A } $ : ~SBTTL PRINT_FAIL 
1D9A 21 § ; FUNCTIONAL DESCRIPTION: 
1 “ ! ; Subroutine to report failures using SPUTMSG 
1D9A 21 j 3; CALLING SEQUENCE: 
1D9A 140 ; Mode #1 PUSHL EXPECTED Mode #2 PUSHL REG_NUMBER 
1D9A 2141 ; PUSHL RECEIVED PUSHL EXPECTED 
1D9A 16 ; PUSHAL g'RING VAR PUSHL RECEIVED 
1D9A 2143 ; CALLS #3,W°PRINT_FAIL PUSHAL STRING_VAR 
1D9A 2144 ; CALLS #4,W*PRINT_FAIL 
1D9A 2145 ; Mode #3 PUSHAL STRING_VAR 
3 9 198 3 CALLS #1,W°PRINT_FAIL 
1D9A 2148 ; INPUT PARAMETERS: 
120A 133 3 listed above 
1D9A 2151 ; OUTPUT PARAMETERS: 
1D9A 136 3 an error message is printed using SPUTMSG 
ak $18: 
1D9A 2155 
1D9A 128 PRINT_FAIL: 
003C ID9A 215 «WORD “M<R2,R3,R4,R5> 
1D9C 2158 $FAO_S CTRSTR = CSi,- 
1D9C 2159 OUTLEN = MESSAGEL,- 
1D9C 2160 OUTBUF = MSGL,- 
1D9C 2161 P1 = #TEST_MOD_NAME,- 
1D9C 16¢ ¢ = SERV_NAME.- 
1D9C 216 P = CURRENT TC¢ 
1DBD 2164 SPUTMSG_S MSGVEC = MSGVET ; print the message 
064 6C 91 IDCE 2165 CMPB (AP) #4 ; is this a register message? 
26 13° 1DD1 196 BEQL 10$ ; br if yes 
01 6C 91 1DD3 216 CMPB (AP) , #1 :; is this just a message? 
48 13 1006 2168 BEQL 208 ; br if yes 
1DD8 2169 $FAO_S CTRSTR = CS2,- 
1DD8 2170 OUTLEN = MESSAGEL,- 
10D 171 OUTBUF = MSGL,- 
1DD 2 Pi = 4(APS,- 
1Dbs 547% me tipts 
Ss —_ 
1DD8 2175 pi = 12(APS 
40 11 ol 178 108 BRB 30$ 3; goto output message 
ibFS 178 SFAO_S CTRSTR = CS3,- 
1DF9 217 OUTLEN = MESSAGEL,- 
1DF9 21 OUTBUF = MSGL,- 
1DF9 21 Pi = 4(APS,- 
1DF9 21 : P = 16(AP5,- 
1DF9 21 P = 8(AP),- 
1DF9 2184 P4 = 4(AP),- 
1DF9 2185 P5 = 1g¢APs ,- 
1DF9 21 $ Pp = 12(AP) 
19 #11 1E36 ! 208 BRB 30$ 3 goto output message 
O29A'CF 04 AC DO IES 1 3 MOVL 4(AP) ,MSGVEC1+12 3 save string address 
* = ; print the message 
1626 2190 SPUTMSG_S MSGVEC = MSGVEC1 i h 
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es 
mmmmmmemnrn 
WI & 
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ers 


BRB 408 
SPUTMSG_S MSGVEC = MSGVEC 
CALLS #0,M0 


MOVAL Teste MOB p L,TMD_ADDR 
INSV #ERROR ,#0,43,MOD_ASG_CODE 


"Sr$Ep=198e 04:80:48 
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; skip the other message 


; print the message 


3 a the mod 
3; set u 
; set severity code 


re A Bs address 


M13 
VAX/VMS UETP SYSTEM SERVICE TEST 16-SEP-1984 01:09: AX/VMS Macro V04-0 P 
MODE S7SEp 19 4 4:98:48 LUETPSY. SREIUETSS «MAR; 1 sear % 


~SBTTL MODE_ID 
;+4 


> FUNCTIONAL DESCRIPTION: 
; Subroutine to identify the mode that an exit handler is in. 


CALLING SEQUENCE: 
CALL 


S$ #0,W*MODE_ID 
; INPUT PARAMETERS: 
MODE contains an address pointing to an ascii string desc. 
; of the current CPU mode. 
; OUTPUT PARAMETERS: 
NONE 


So 
m 
— 
i=] 


-WORD “M<R2,R3,R4,R5> 

SFAO_S CTRSTR = CS5,- 
OUTLEN = MESSAGEL,- 
OUTBUF = MSGL,- 
P1 = MODE ; format the error message 

poyraees MSGVEC = MSGVEC ; print the mode message 


003¢ 


— a ss a “a ts 4) —s as 2 ss as td a oe 
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~SBTTL DATA_CHECK 


++ 
FUNCTIONAL DESCRIPTION: 
Routine to check the data pattern used in the sections. 


CALLING SEQUENCE: 
PUSHAL INADR 


I 
PUSHL” FIRST VALUE 
CALLS #2,DATA_CHECK 


INPUT PARAMETERS: 
8(AP) = A quad word containing the first address and the last address 
of the buffer to be checked. 
4(AP) = First value which should be stored in the buffer. If this value 
is non-zero the data pattern is assumed to be a Lagann 
pongyere count pattern. If it is zero the data is assumed to 
e . 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 


COMPLETION CODES: 
RO = SS$_NORMAL if data was correct. 
RO = 0 if data was incorrect. 


SIDE EFFECTS: 
Error message is printed if a failure occured. 


NAMA AN @ OOO NAMNE WIN  O ONAN EWN O OO NAME WH 0 DOONAN EU O ONO 


ee ee me me ee me a DD ee ee ed ee ed od od ed od dd SS dD 
SN NNN NNN NOAA AAA AAA OMUMMMIMIMIMII ES BPP RRR REE 


DATA_CHECK: 
OFFC - WO vr fh elaieahaemamnammee se R10,R11> ; Entry mask 
53 08 AC 00 88 MOVL 8(AP),R : Get the address of the address quadword 
54 O4A dO 8F MOVL 4(R3),R4 ; Get the ending address 
53 g dO 93 MOVL (R3) ,R3 ; Get the starting address 
54 D1 38 CMPL R3,_R4 ; Which order are the address in 
3 15 1€9 BLEQ 198 : Br if inorder or equal 
3 D 98 MOVL R RS ; Otherwise swap them around 
4 OD MOVL R4,R ; To get the right end data 
4 55 D re | 108 MOVL R5,R4 
O286'CF 53 00 AS MOVL R3,START_ADDRESS ; Save the lower address 
52 O04 AC OD Ag MOVL 4 CAP) ,R2 ; Get the starting data value 
18 1 AD BEQL ags ; BR if data pattern of zero 
55 ; 2 C AF SUBL R3,R4,R5 ; Calculate the byte difference 
5 9% C6 83 DIVL #4,R5 ; Calculate the longword difference 
55 2 BA€ 44 208 SUBL R5,R2,R5 ; Subtract the start value bias 
52 83 01 BA 0 CMPL (R3)+,R2 3 Check the data 
18 is BD 1 BNEQ + ; Br if data is bad 
5 D BF 2 DECL R : Do all of the longwords 
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ALL done? 
BR if not 


; Set success status if OK 


Check for zeroed data 
R if bad 


End of data to check? 
BR if not 


Push bad data value 
Push good data value 
Push failure type name 
Report the failure 

Get the buffer offset 
Compensate for auto inc 


format the error message 
ay the offset message 
et failure return 


UETSSMMOO VAX/V 
¥642000 NONS age 2? 
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-SBTTL NONSUB_SSE 


FUNCTIONAL DESCRIPTION: 
ubroutine to report the failure of a system service which is not the 
subject system service. 


CALLING SEQUENCE: 
PU ; Save the failure status 
CALLS #1,NONSUB_SSE ; Print the failure message 


: INPUT PARAMETERS: 
: 4(AP) = Status code of failing system service 
N 


OUTPUT PARAMETERS: 
; NONE 
ONSUB_SSE: 
OFFC «WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> 
SGETMSG_S MSGID = 4(AP),- 
MSGLEN = BUFFER_PTR,- 
BUFADR = BUFFER_PTR,- 
FLAGS = #1 ; Get just the text of the message 
$FAO_S CTRSTR = NSSSF,- 
OUTLEN = MESSAGE1L,- 
OUTBUF = MSGIL,- 
P1 = #BUFFER_PTR ; Format the failure message 
0379°CF 0109 8F BO MOVW #TEXT_BUFFER,BUFFER_PTR ; Reset the descriptor length 
O232°CF ODF PUSHAL MESSAGEIL ; Push the string address 
FE44 CF (01 OFB CALLS #1,PRINT_FAIL ; Print the failure 


tt ss — —s — — ss 2s ss os —) ss ss os ss ss ss 2 5s ss Ss 


SOOWONAUS WN OC DOONAN ES WO OONOULS UN" 0” 


RET 
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-SBTTL RMS Error Handler 


FUNCT Lona DESCRIPTION: 
is routine handles error returns from RMS calls. 


CALLING PFOUERCes 
Called by RMS when a file processing error is found. 


INPUT PARAMETERS: 
NONE 


— 
~~ 


IMPLICIT INPUTS: 
The FAB or RAB associated with the RMS call. 


OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
Error message 

COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
Program may exit, depending on severity of the error. 


Sete Ge Ge Ge Ge Se Se Ge Se Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge te 
; + 


RMS_ERROR: 


PDPRPED PSPSPS IIIT 
COVNOS OO WW 


iui miadadataiadad dabubatmiabmababababadbatatatababatad aD ade adand adabadadad dada add aD and bad daa ach aban achat 
A nn ee oe or on ooo 


NAME AIR OS OD NAME WIN 9 OD NAME WIN O OD NAME WIN OOO NAME WWI OOOO EP 


WOOO OOOO 009000 6900 B90 I NNN NN SND DDD DDD DDD TTI 


OFFC WORD “M<R2,R35,R4,R5,R6,R7,R8,R9,R1I0,R11> ; Entry mask 
56 04 AC 00 MOVL 4CAP) ,R6 ; See whether we'-e2 dealing with... 
66 03 91 CMPB © #FABSC_BID,FABSB_BID(R6) ; ...a FAB or a RAB 
ee BNEQ 10$ ; BR if it's a RAB 
58 56 00 MOVL R6,R8 ; ...address of FAB... 
0c A6 DD PUSHL FABSL_STV(R6) ; ...STV field for error... 
8B A6 OD PUSHL FABSL_STS(R6) ene8 ers field for error... 
0012"CF 08 A6~ 00 96 MOVL FABSL “§15(R6)  STATUS_cODE ...and save the error code 
? ee | f a BRB COMMON ; fab and RAB share other code 
58 3C A6~ 00 73 RABSL_FAB(R6) RB : ..-address of associated FAB... 
+8 A6 DD 7 PUSHL RABSL_STV(R6) : + SIV field for error... 
8 A6 DD 7A PUSHL RABSL~ STS (R6) eeouls field for error... 
0012'CF 08 A6~ 00 3 cones MOVL RABSL_STS(R6) ,STATUS_ cové : 3 »..and save the error code 
SA 34 AB QA MOVZBL FABSB_FNS(R8),R10 3; Get the file name size 
7? O_S CTRSTR = RMS _ERR Rats. ; Common code, prepare error message... 
7 UTLEN = BUFFER 
7 OUTBUF = pie. BUF, 
7 = R10>- 
7 = FABS$L_FNA(R8) 
O379°CF OF F PUSHAL Bure R_PTR ; Push the string address 
FOF2 CF O01 FB A CALLS PRIAT_FAIL ; Print the failure 
04 . RET 
A9 me verre 
A9 
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REAR AAAAAATAE TATA AAAARAEARAAAAARAAAAAAARAAAAATEHERAAAATEAERETEE 


* ® 
* PRINTS THE TEST MODULE BEGUN/SUCCESSFUL/FAILED MESSAGES * 
* (USING THE PUTMSG MACRO). : 


LAR RARARAASARAAAAAASAAAALELALALA LASERS LESSEE LESSER REESE RRR ERE ERE SY 


PUTHSG <MOD_MSG_CODE ,#2, TMN_ADDR, TMD -ADDR> : PRINT MSG 
RSB pcan RETURN TO CALLER 


3 
De ee Be | 
or>r>r>r>rrr>r 
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-SBTTL Exit Handler 


+ 
FUNCTIONAL DESCRIPTION: 
This routine handles cleanup on exits. 


CALLING SEQUENCE: 
Invoked automatically by SEXIT System Service. 


INPUT PARAMETERS: 
Location STATUS_CODE contains the exit status 


IMPLICIT INPUTS: 
NONE 


Wto—OO 


OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

Erase the UETPSECT.DAT file even if the test is aborted. 
COMPLETION CODES: 

NONE 


SIDE EFFECTS: 
NONE 


mm Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 
‘ + 
i 


XIT_HANDLER: 


OFFC «WORD “M<R2,R3,R4,R5,R6,R7,R8B,R9,R1I0,R11> ; Entry mask 
SDASSGN_S ‘wr = SECFAB+FABSL_STV i; Deassign the channel 
SERASE FAB = fl EF 
ERR S ERROR ; Erase the old section file 
SSETPRV_S ENBELG 
PRVADR = Riv MASK ; Remove all ay or vetieges 
04 ; That's all fo 


ai ek a td dd td dt et 8 = = = 8 2 2 2 3 2 2 
i a fo end Be ne BBs, Bad n.d, Bnd, Bona, aa a, a, on. Bona. na na, aa, Bn, aa. na a on. na, Pena ea naa na a 
MMOVOCOCCCWWWVWVWVIWVIWVIWVIVAIVOIVIVOVIVIVIVIVIVIVIVOVIVVIVIVIOIOWVOW 


PS SS SS SSS SS SS SS SSS SS SSS SSS SS 


BREESE EWI rnononononononononon 2 


BUF WN (OOD NAUES WR OS ODNAUES WIN O OONOUS 


rr 


RET 
-END UETSSMMOO 
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G 
EQUIV_NAME 


ERROR 
EXIT_DESC 


BUFFER_PTR 
CRMPSC$ 
CRMPSCS$ 
CRMPSCS 
CTLS$GL_PHD 


AN_IDENT 
COMMON” 
CRMPSC 


BUFFER 
CRMPSCS 
CURREN 
DATA 
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STP4 1984 R SYSSWAKE eeeeenee § GX 6 
STP4 135C9 R SYSSWRITE eeeerere § GX 
STP 9148 R TEST_MOD_BEGIN 18 R 
STP50 6 fi 6 TEST-MOD-FAIL ¢ R 
STP51 1 ° R ° TEST_MOD_NAME R 
STP § 15D8 R TEST_MOD_NAME_D AR 
STP 1614 R 6 TEST_MOD_ SUCC 1R 
Abe «| 1646 R 6 TEXT_BUFFER = 1 g 
STP55 1748 R 6 TMD_ADOR R 3 
STP 28 0001783 R 6 TMN_ADDR ER 3 
ates 17BE R 6 TOOCONGS TRING AR 
STP 8 1 g 6 TPID OR 
STP5 1 R 6 TTCHAN 4 R 
STP6 0000200 R 6 TTNAM § 8 02 
STP60 0001 FS R 6 UETPS_SATSMS = 0074 p 
STP61 0001909 R 06 UETPS Lh T = 00741130 
TPE a001974 R Og Notes: d0001Dc ROS 
TP64 090019 & be UPDSEC 9000048 R 02 
STP65 OOO1AAG R 6 UPDSECS_ACMODE = 0000000C 
TP66 44 9d R 06 UPDSECS_ASTADR = 44 3b 
STP67 B801 roe R 06 UPDSECS_ASTPRM = 00 3804 
STP68 00001C96 R 06 UPDSECS_EFN = 44 14 
STP69 Sp OAS aS B 06 UPDSECS$_INADR = 00000004 
STP? 00000235 R 06 UPDSEC$_10SB = 00000018 
STP70 00001CC4 R 06 UPDSECS$S_NARGS = Hs 4 
STP8 00000 ag R 06 UPDSEC$_RETADR = 00000008 
STP9 000002D5 R 06 UPDSEC$_UPDFLG = oi 44 
speyelwensc $380 BES ace te 
SYSSCLOSE aeneeeee GX 06 UPD_I0 0000 9KE R 08 
SYSSCMEXEC eereeeee GX 06 VASS_VPN = 0000001 
SYSSCONNECT eeneeeee GX 80 VASV_VPN = 4444 
SYSSCREATE eeeeenee GX 6 VBN 444 DR 03 
SYSSCRELOG eeneenee GX 8 WOR 0 464 74 R 03 
SYSSCREMBX eeeeeene GX 6 WRITE_BUF 00000000 R 04 
SYSSCRMPSC eeekeeaee GX 86 ZEROSTRING 00000222 R 02 
SYSSDASSGN eeenenee GX 6 
SYSSDCLEXH eeneneee GX 06 
SYSSDELLOG eeeeeere GX be 
SYSSDELTVA eeeneeee GX 6 
SYSSDGBLSC eeeeeeee GX 6 
SYSSERASE eeereeee § GX 6 
SYSSEXIT eeeeeenre GX 6 
SYSSFAO keereree x 6 
SYSSGETMSG teneneee GX 6 
SYSSHIBER eeeeeeee GX 6 
SYSSLCKPAG eeeeeeee GX 6 
SYSSMGBLSC teeeeeee GX 6 
SYS EN eeeneeee 6X 6 
S¥SSPUTMSG eeeeeeee GX 6 
SYSSSETAST aeeeeere GX 6 
SYSSSETPRN eeeeeeee GX 6 
SYSSSETPRT eeeneeee GX 6 
SYSSSETPRV eeeeeeee GX 6 
SYSSUPDSEC eeeetere GX 6 
SYSSWAITFR eererere GX 6 
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brewer sen an ane sees} 


! Psect synopsis ! 


peewee Oem Hh 


PSECT name Allocation PSECT No. Attributes 
. Ss 0 8 ( 3 0 ( -) NOPIC USR CON ABS LCL nose NOEXE NORD NOWRT NOVEC BYTE 
( -) Q1 ¢ -) NOPIC USR CON ABS LCL NOSHR' EXE WRT NOVEC BYTE 
RODATA C7 ¢ #711.) ¢ ( ¢°) NOPIC USR CON REL LCL NOSHR NOEXE RD NOWRT NOVEC 
RWDATA AC (¢ 1128-3 ( -) NOPIC USR CON’ REL LCL NOSHR NOEXE RD WRT NOVEC 
RMS 8 sore ( 5860.) 04 ( 4.) NOPIC USR CON REL LCL NOSHR EXE AD WRT NOVEC PAGE 
SRMSNAM 0018 ¢ 4.) 05 ¢ 5.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
VETSSMM10 QOOOIFED ( 8173.) 06 ¢ 6.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG 
$¢oeecee sae er recom one weeecea$ 
! Per formance indicators H 

Phase Page faults CPU Time Elapsed Time 
Initialization 00:00:00.1 0:00:00.3 
yi processing 138 00: 0:00:68 66; 0: 32 

s 1 781 4S 214 00:01:08. 8 
Syabol table sort 4 00:00:02.24 00:00:02.5 
Pass 2 452 00:00:10.02 Bo 80: 38 
Symbol table output B880:5 . § 0:00:00. ¢ 
Psect synopsis output 0:00:00. 00:00:00.0 
Cross-reference output 00:00:00 09 es Bes es 
Assembler run totals 1414 00:00:50.4 00:01:27.97 


The vertices set — was 2000 pages. 

243043 bytes (475 pages) of virtual memory were used to buffer the intermediate cod 

There were 80 pages of symbol table space we erage to hold 1498 non-local and 78 Local symbols. 
446 source Lines were read in Pass 1, "aettne hs object records in Pass 2. 

5 pages of virtual memory were used to define 77 macros. 


Go ceeeeeswoeeeecooececoocons 


Macro Library name Yacros defined 
-$gsstgue fs UENUE MLB; B:} : 
$255$DUA28 SySL IBISTARLET MLB;2 § 

TOTALS (all Libraries) 4 


1943 GETS were required to define 74 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:UETSSMMO0/0BJ=0BJ$:UETSSMMOO MSRC$:UETSSMMOO/UPDATE=(ENHS$:UETSSMMOO) +EXECMLS$/LIB+SHRLIBS:UETP/LIB 
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